Circulant SSA
Погребников Николай
L <- 81
x <- 1:L
y <- sin(pi*x/(L+1))^2 |> sqrt()
plot(x, y)
700 *2/3[1] 466.6667Вспомогательные функции
library(Rssa)Загрузка требуемого пакета: svd
Загрузка требуемого пакета: forecast
Присоединяю пакет: ‘Rssa’
Следующий объект скрыт от ‘package:stats’:
decomposelibrary(signal)
Присоединяю пакет: ‘signal’
Следующий объект скрыт от ‘package:Rssa’:
roots
Следующие объекты скрыты от ‘package:stats’:
filter, polylibrary(gsignal)Registered S3 methods overwritten by 'gsignal':
method from
plot.grpdelay signal
plot.specgram signal
print.freqs signal
print.freqz signal
print.grpdelay signal
print.impz signal
print.specgram signal
Присоединяю пакет: ‘gsignal’
Следующий объект скрыт от ‘package:signal’:
Arma, as.Arma, as.Zpg, bartlett, bilinear, blackman, boxcar, butter, buttord, cheb1ord, chebwin, cheby1, cheby2, chirp, conv,
decimate, ellip, ellipord, fftfilt, filter, filtfilt, fir1, fir2, flattopwin, freqs, freqs_plot, freqz, freqz_plot, gausswin,
grpdelay, hamming, hanning, ifft, impz, interp, kaiser, kaiserord, levinson, Ma, medfilt1, poly, remez, resample, sftrans, sgolay,
sgolayfilt, specgram, triang, unwrap, Zpg, zplane
Следующие объекты скрыты от ‘package:stats’:
filter, gaussian, polysource("eossa_new.R")
dftmtx <- function(n) {
y <- stats::mvfft(diag(1, n))
y
}
diag_averaging <- function(A){
B <- A[nrow(A):1, ] |> Re()
lapply(split(B, -(row(B) - col(B)) ), mean) |> as.numeric()
}
shift_vector <- function(vec) {
last_element <- tail(vec, 1)
vec <- vec[-length(vec)]
shifted_vec <- c(last_element, vec)
return(shifted_vec)
}
extend <- function(x, H){
# Вычисление коэффициентов AR модели для дифференцированного ряда
N <- length(x)
p <- floor(N / 3)
dx <- diff(x)
# A <- ar(dx, order.max = p, method = "yule-walker")$ar
A <- aryule(dx, p)$a
# Правое расширение
y <- x
dy <- diff(y)
er <- signal::filter(A, 1, dy)
dy <- signal::filter(1, A, c(er, rep(0, H)))
y <- y[1] + c(0, cumsum(dy))
# Левое расширение
y <- rev(y)
dy <- diff(y)
er <- signal::filter(A,1,dy)
dy <- signal::filter(1,A,c(er, rep(0, H)))
y <- y[1] + c(0, cumsum(dy))
# Расширенный ряд
xe <- rev(y)
# Вывод результатов
xe
}CiSSA
Подаётся на вход временной ряд, длина окна (если её нет, то она равна длине ряда + 1 пополам) и информация о том, нужно ли расширить ряд. Расширять ряд стоит при стохастическом тренде (Autoregressive extension (default). It is indicated for stationary and stochastic trend time series as well). Реализовано только Autoregressive extension.
На выходе список выдаётся список list(t_series, importance).
t_series — матрица, по столбцам которой располагаются временные ряды,
отвечающие за частоты (i-1)/L, где i — номер столбца, L — длина
окна.
importance — вектор, отвечающий за значимость i-ого временного ряда в
разлолжении. Чем больше значение, тем больший вклад внёс i-тый временной
ряд.
circulant_SSA <- function(ts, L = NULL, extend_flag = FALSE){
time_series <- ts
# Construct trajectory matrix
N <- length(time_series)
if (is.null(L)){
L <- (N + 1)%/%2
}
# Проверка на расширения ряда
if (extend_flag == FALSE){
H <- 0
time_series <- ts
}
else{
H <- L
time_series <- extend(ts, H)
}
X <- hankel(time_series, L)
# Number of symmetric frequency pairs around 1/2
if (L %% 2) {
nf2 <- (L + 1) / 2 - 1
} else {
nf2 <- L / 2 - 1
}
# Number of frequencies <= 1/2
nft <- nf2 + abs((L %% 2) - 2)
# Decomposition
# Estimate autocovariance OK
autocov <- numeric(L)
for (m in 0:(L-1)){
autocov[[m+1]] <- sum(time_series[1:(N-m)] * time_series[(1+m):N]) / (N-m)
}
# First row of circulant matrix
circ_first_row <- numeric(L)
for (m in 0:(L-1)){
circ_first_row[[m+1]] <- (L-m)/L * autocov[[m+1]] + (m)/L * autocov[[L-m]]
}
# Build circulant matrix
S_C <- matrix(circ_first_row, nrow = 1)
shifted_vector <- circ_first_row
for (i in 2:(L)) {
shifted_vector <- shift_vector(shifted_vector)
# S_C <- rbind(S_C, as.vector(shifted_vector))
S_C <- rbind(as.vector(shifted_vector), S_C)
}
# Eigenvectors of circulant matrix (unitary base)
U <- dftmtx(L)/sqrt(L)
# Real eigenvectors (orthonormal base)
U[, 1] <- Re(U[, 1])
for (k in 1:nf2) {
u_k <- U[, k + 1]
U[, k + 1] <- sqrt(2) * Re(u_k)
U[, L + 2 - (k + 1)] <- sqrt(2) * Im(u_k)
}
if (L %% 2 != 0) {
U[, nft] <- Re(U[, nft])
}
# Eigenvalues of circulant matrix: estimated power spectral density
psd <- abs(diag(t(U) %*% S_C %*% U))
# Principal components
W <- t(U) %*% X
# Reconstruction
# Elementary reconstructed series
R <- matrix(0, nrow = N+2*H, ncol = L)
for (k in 1:L) {
R[, k] <- U[ ,k] %*% t(W[k, ]) |> diag_averaging()
}
# Grouping by frequency
# Elementary reconstructed series by frequency
Z <- matrix(0, nrow = N+2*H, ncol = nft)
Z[, 1] <- R[, 1]
# Importance of component
imp <- numeric(nft)
lambda_sm <- sum(psd)
imp[1] <- psd[1]/lambda_sm
for (k in 1:nf2) {
Z[, k + 1] <- R[, k + 1] + R[, L + 2 - (k + 1)]
imp[k+1] <- (psd[k+1] + psd[ L + 2 - (k + 1)])/lambda_sm
}
if (L %% 2 != 0) {
Z[, nft] <- R[, nft]
imp[nft] <- psd[nft] / lambda_sm
}
list(t_series = Z[(H+1):(N+H),],
importance = imp,
freq = (0:(length(imp) -1))/L
)
}# groups - list of frequencies
grouping_cissa <- function(cissa_res, groups){
freq <- cissa_res$freq
t_series <- cissa_res$t_series
residuals <- 0
result <- setNames(as.list(rep(0, length(groups))), names(groups))
result_freqs <- list()
for (i in 1:length(cissa_res$freq)){
flag <- FALSE
for (name in names(groups)){
if (groups[[name]][1] <= freq[i] & freq[i] <= groups[[name]][2]){
flag <- TRUE
result[[name]] <- result[[name]] + t_series[, i]
result_freqs[[name]] <- c(result_freqs[[name]], freq[i])
}
}
if (flag == FALSE){
residuals <- residuals + t_series[, i]
}
}
result[["residuals"]] <- residuals
return(
list(
t_series = result,
freqs_by_group = result_freqs
)
)
result
}generate_ts <- function(func, n=1e3, ...){
1:n |> func(...) |> ts()
}
f_cos <- function(x, A = 1, omega = 1/4, phi = 0){
f_exp_mod_harm_series(x, A, alpha = 0, omega = omega, phi = phi)
}
f_sin <- function(x, A = 1, omega = 1/4, phi = 3*pi/2){
f_exp_mod_harm_series(x, A, alpha = 0, omega = omega, phi = phi)
}
f_exp <- function(x, A = 1, alpha = 1){
A * exp(alpha * x)
}
f_exp_cos <- function(x, A = 1, alpha = 1, omega = 1/4, phi = 0){
f_exp_mod_harm_series(x, A, alpha, omega, phi)
}
f_const <- function(x, C = 0){
rep(C, length(x))
}
f_exp_mod_harm_series <- function(x, A = 1, alpha = 1, omega = 1/4, phi = 0){
A*exp(alpha*x)*cos(2*pi*omega*x + phi)
}
f_linear <- function(x, a = 1, b = 0){
a*x + b
}
mse <- function(f_true, f_reconstructed){
mean((f_true - f_reconstructed)^2)
}Ошибка при Lw in N, Kw not in N
n <- 96*2+5
L <- 96
eps <- 1/97
f_sum <- function(x){
f_const(x, C = 1) + f_cos(x, omega = 1/12)
}
f_const |> generate_ts(n, C = 1) |>
plot(col = "green", ylim = c(-1, 2), ylab = "f_n")
f_cos |>
generate_ts(n, omega = 1/12) |>
lines(col="green")f_sum |> generate_ts(n) |> lines(lwd = 3, col='red')
f_n <- f_sum(1:n)
c <- circulant_SSA(f_n, L = 96, extend_flag = FALSE)
r <- grouping_cissa(c,
groups = list(
trend = c(0, eps),
sesonal = c(1/12-eps, 1/12 + eps)
)
)$t_series
f_C <- f_const |> generate_ts(n, C = 1)
f_c <- f_cos |> generate_ts(n, omega = 1/12)
print("Ошибки при CiSSA")[1] "Ошибки при CiSSA"print(paste("Ошибка при вычислении C = 1: ", mse(f_C, r$trend) |> format(scientific = TRUE, digits = 2) ))[1] "Ошибка при вычислении C = 1: 3.2e-31"print(paste("Ошибка при вычислении cos(pi/12): ", mse(f_c, r$sesonal) |> format(scientific = TRUE, digits = 2) ))[1] "Ошибка при вычислении cos(pi/12): 5.1e-30"lines(1:n, r$trend, col="blue")lines(1:n, r$sesonal, col="blue")
f_const |> generate_ts(n, C = 1) |>
plot(col = "green", ylim = c(-1, 2), ylab = "f_n")
f_cos |>
generate_ts(n, omega = 1/12) |>
lines(col="green")f_sum |> generate_ts(n) |> lines(lwd = 3, col='red')
f_n <- f_sum(1:n)
s <- ssa(f_n, L = 96)
r <- reconstruct(s, groups=list(
trend = 1,
sesonal = 2:3
))
print("Ошибки при SSA")[1] "Ошибки при SSA"print(paste("Ошибка при вычислении C = 1: ", mse(f_C, r$trend) |> format(scientific = TRUE, digits = 2) ))[1] "Ошибка при вычислении C = 1: 9.6e-05"print(paste("Ошибка при вычислении cos(pi/12): ", mse(f_c, r$sesonal) |> format(scientific = TRUE, digits = 2)))[1] "Ошибка при вычислении cos(pi/12): 9.6e-05"lines(1:n, r$trend)lines(1:n, r$sesonal)
Проверка разделимости непериодических компонент + автогруппировка SSA
n <- 96*2-1
L <- 96
eps <- 1/97
C <- 1
omega_cs <- 1/12
omega_sn <- 1/24
a <- 1/100
f_sum <- function(x){
f_const(x, C = C) +
f_cos(x, omega = omega_cs) +
f_exp(x, a = a) +
f_sin(x, omega = omega_sn)
}
f_C <- f_const |> generate_ts(n, C = C)
f_c <- f_cos |> generate_ts(n, omega = omega_cs)
f_s <- f_sin |> generate_ts(n, omega = omega_sn)
f_e <- f_exp |> generate_ts(n, a = a)
f_n <- f_sum(1:n)
library(xtable)
# Шаг 2: Создание примера данных
data <- data.frame(
Метод = c("SSA", "CiSSA"),
e_err = c(20, 20),
c_err = c(23, 35),
ec_err = c(20, 20),
sin_err = c (20, 20),
cos_err = c(1, 1)
)
# Отрисовка ряда f_n
plot(f_n, type = "l", lwd = 3, col = 'red', ylim = c(-2, 10),
xlab = "Время", ylab = "Значения ряда", main = "Разложение временного ряда")
# Добавление отдельных компонентов (f_C, f_c, f_e)
lines(f_C, col = "blue") # Компонент f_Clines(f_c, col = "blue") # Компонент f_c
lines(f_e, col = "blue") # Компонент f_elines(f_s, col = "blue")
# Легенда
legend("topleft", legend = c("Весь ряд", "Компоненты"),
col = c("red", "blue"), lty = 1, lwd = 3)
c <- circulant_SSA(f_n, L = L, extend_flag = TRUE)
# r <- c$t_series
r <- grouping_cissa(c,
groups = list(
# trend = c(0, 1/100),
trend = c(-1, 1/25),
sesonal_cos = c(1/12-eps, 1/12+eps),
sesonal_sin = c(1/24 - eps, 1/24+eps)
))$t_series
data$cos_err[2] <- mse(f_s, r$sesonal_sin) |> formatC(format = "e", digits = 1)
data$sin_err[2] <- mse(f_c, r$sesonal_cos) |> formatC(format = "e", digits = 1)
data$ec_err[2] <- mse(f_C+f_e, r$trend) |> formatC(format = "e", digits = 1)
# png("C:/Users/nik1m/Desktop/уник/6 сем/курсач/Текст работы/img/trend inseparability/CiSSA.png") # сохранение в формате PNG
plot(1:n, f_n, type = "l", lwd=3, ylim= c(-2, 10), col="red",
xlab = "Время", ylab = "Значения ряда", main = "CiSSA разложение временного ряда")
lines(1:n, r$trend, col = "blue")lines(1:n, r$sesonal_sin, col = "blue")
lines(1:n, r$sesonal_cos, col = "blue")
# Легенда
legend("topleft", legend = c("Весь ряд", "Компоненты"),
col = c("red", "blue"), lty = 1, lwd = 3)
# dev.off() # завершение сохранения
s <- ssa(f_n, L)
#e <- eossa_new(s, nested.groups = list(1:10), clust_type = "distance", k= 7)
e <- eossa(s, 1:10, k = 7)
g_sesonal <- grouping.auto(e, base = "eigen",
freq.bins = list(trend = c(2*eps),
sesonal2 = c(1/24-eps, 1/24+eps),
sesonal1 = c(1/12-eps, 1/12+eps)
),
threshold = 0.1)
r <- Rssa::reconstruct(e, groups=c(list(exp = 1,
C = 2
),
g_sesonal)
)
plot(wcor(e, groups = 1:24), scales = list(at = c(10, 20, 30)))Предупреждение в wcor.ossa(e, groups = 1:24) :
Component matrices are not F-orthogonal (max F-cor is 0.93). W-cor matrix can be irrelevant
data$c_err[1] <- mse(f_C, r$C) |> formatC(format = "e", digits = 1)
data$e_err[1] <- mse(f_e, r$exp) |> formatC(format = "e", digits = 1)
data$cos_err[1] <- mse(f_c, r$sesonal1) |> formatC(format = "e", digits = 1)
data$sin_err[1] <- mse(f_s, r$sesonal2) |> formatC(format = "e", digits = 1)
data$ec_err[1] <- mse(f_C+f_e, r$C+r$exp) |> formatC(format = "e", digits = 1)
# png("C:/Users/nik1m/Desktop/уник/6 сем/курсач/Текст работы/img/trend inseparability/SSA.png") # сохранение в формате PNG
plot(1:n, f_n, type = "l", lwd=3, ylim= c(-2, 10), col="red",
xlab = "Время", ylab = "Значения ряда", main = "SSA разложение временного ряда")
lines(1:n, r$trend, type = "l", col="green")lines(1:n, r$exp, type = "l", ylim= c(-2, 10), col="blue")
lines(1:n, r$C, col = "blue")lines(1:n, r$sesonal1, col = "blue")
lines(1:n, r$sesonal2, col = "blue")
# Легенда
legend("topleft", legend = c("Весь ряд", "Компоненты"),
col = c("red", "blue"), lty = 1, lwd = 3)
# Шаг 3: Преобразование данных в формат LaTeX
table_latex <- xtable(data, caption = "Example Table")
# Шаг 4: Вывод таблицы в LaTeX файл
print(table_latex, include.rownames = FALSE)% latex table generated in R 4.2.2 by xtable 1.8-4 package
% Sun Feb 16 23:13:06 2025
\begin{table}[ht]
\centering
\begin{tabular}{llllll}
\hline
Метод & e\_err & c\_err & ec\_err & sin\_err & cos\_err \\
\hline
SSA & 2.2e-25 & 2.2e-25 & 4.2e-28 & 3.8e-29 & 1.6e-29 \\
CiSSA & 20 & 35 & 1.4e-03 & 7.7e-04 & 1.9e-03 \\
\hline
\end{tabular}
\caption{Example Table}
\end{table}Пример cos*exp
n <- 96*2-1
L <- 96
eps <- 1/(L+1)
C <- 1
omega_cs <- 1/12
omega_sn <- 1/24
a <- 1/100
omega_exp <- 1/48
f_sum <- function(x){
f_cos(x, omega = omega_cs) +
f_exp_mod_harm_series(x, a = a, omega = omega_exp) +
f_sin(x, omega = omega_sn)
}
f_c <- f_cos |> generate_ts(n, omega = omega_cs)
f_s <- f_sin |> generate_ts(n, omega = omega_sn)
f_e <- f_exp_mod_harm_series |> generate_ts(n, a = a, omega = omega_exp)
f_n <- f_sum(1:n)
library(xtable)
# Шаг 2: Создание примера данных
data <- data.frame(
Метод = c("SSA", "CiSSA"),
exp_err = c(20, 20),
sin_err = c (20, 20),
cos_err = c(1, 1)
)
# Отрисовка ряда f_n
plot(f_n, type = "l", lwd = 3, col = 'red', ylim = c(-10, 10),
xlab = "Время", ylab = "Значения ряда", main = "Разложение временного ряда")
# Добавление отдельных компонентов (f_C, f_c, f_e)
lines(f_c, col = "blue") # Компонент f_clines(f_e, col = "blue") # Компонент f_e
lines(f_s, col = "blue")
# Легенда
legend("topleft", legend = c("Весь ряд", "Компоненты"),
col = c("red", "blue"), lty = 1, lwd = 3)
c <- circulant_SSA(f_n, L = L, extend_flag = TRUE)
# r <- c$t_series
r <- grouping_cissa(c,
groups = list(
trend = c(0, 1/26-eps),
sesonal_cos = c(1/12-eps, 1/12+eps),
sesonal_sin = c(1/24-eps, 1/24+eps)
))$t_series
data$cos_err[2] <- mse(f_s, r$sesonal_sin) |> formatC(format = "e", digits = 1)
data$sin_err[2] <- mse(f_c, r$sesonal_cos) |> formatC(format = "e", digits = 1)
data$exp_err[2] <- mse(f_e, r$trend) |> formatC(format = "e", digits = 1)
# png("C:/Users/nik1m/Desktop/уник/6 сем/курсач/Текст работы/img/trend inseparability/CiSSA.png") # сохранение в формате PNG
plot(1:n, f_n, type = "l", lwd=3, ylim= c(-10, 10), col="red",
xlab = "Время", ylab = "Значения ряда", main = "CiSSA разложение временного ряда")
lines(1:n, r$trend, col = "blue")lines(1:n, r$sesonal_sin, col = "blue")
lines(1:n, r$sesonal_cos, col = "blue")
# Легенда
legend("topleft", legend = c("Весь ряд", "Компоненты"),
col = c("red", "blue"), lty = 1, lwd = 3)
# dev.off() # завершение сохранения
s <- ssa(f_n, L)
e <- eossa_new(s, nested.groups = list(1:30), clust_type = "distance")
g_sesonal <- grouping.auto(e, base = "eigen",
freq.bins = list(trend = c(1/25-eps),
sesonal2 = c(1/24-eps, 1/24+eps),
sesonal1 = c(1/12-eps, 1/12+eps)
),
threshold = 0.1)
r <- reconstruct(e, groups= g_sesonal)
plot(wcor(e, groups = 1:24), scales = list(at = c(10, 20, 30)))Предупреждение в wcor.ossa(e, groups = 1:24) :
Component matrices are not F-orthogonal (max F-cor is -0.529). W-cor matrix can be irrelevant
data$exp_err[1] <- mse(f_e, r$trend) |> formatC(format = "e", digits = 1)
data$cos_err[1] <- mse(f_c, r$sesonal1) |> formatC(format = "e", digits = 1)
data$sin_err[1] <- mse(f_s, r$sesonal2) |> formatC(format = "e", digits = 1)
# png("C:/Users/nik1m/Desktop/уник/6 сем/курсач/Текст работы/img/trend inseparability/SSA.png") # сохранение в формате PNG
plot(1:n, f_n, type = "l", lwd=3, ylim= c(-10, 10), col="red",
xlab = "Время", ylab = "Значения ряда", main = "SSA разложение временного ряда")
lines(1:n, r$trend, type = "l", col="blue")lines(1:n, r$sesonal1, col = "blue")
lines(1:n, r$sesonal2, col = "blue")
# Легенда
legend("topleft", legend = c("Весь ряд", "Компоненты"),
col = c("red", "blue"), lty = 1, lwd = 3)
# Шаг 3: Преобразование данных в формат LaTeX
table_latex <- xtable(data, caption = "Example Table")
# Шаг 4: Вывод таблицы в LaTeX файл
print(table_latex, include.rownames = FALSE)% latex table generated in R 4.2.2 by xtable 1.8-4 package
% Sun Feb 16 17:45:15 2025
\begin{table}[ht]
\centering
\begin{tabular}{llll}
\hline
Метод & exp\_err & sin\_err & cos\_err \\
\hline
SSA & 4.7e-29 & 1.1e-29 & 8.4e-30 \\
CiSSA & 3.2e-02 & 1.0e-03 & 5.8e-03 \\
\hline
\end{tabular}
\caption{Example Table}
\end{table}Данные IP
library(readxl)Предупреждение: пакет ‘readxl’ был собран под R версии 4.2.3data <- read_excel("Data/International_Financial_Statistics_.xlsx")New names:
• `` -> `...2`
• `` -> `...3`
• `` -> `...4`
• `` -> `...5`
• `` -> `...6`
• `` -> `...7`
• `` -> `...8`
• `` -> `...9`
• `` -> `...10`
• `` -> `...11`
• `` -> `...12`
• `` -> `...13`
• `` -> `...14`
• `` -> `...15`
• `` -> `...16`
• `` -> `...17`
• `` -> `...18`
• `` -> `...19`
• `` -> `...20`
• `` -> `...21`
• `` -> `...22`
• `` -> `...23`
• `` -> `...24`
• `` -> `...25`
• `` -> `...26`
• `` -> `...27`
• `` -> `...28`
• `` -> `...29`
• `` -> `...30`
• `` -> `...31`
• `` -> `...32`
• `` -> `...33`
• `` -> `...34`
• `` -> `...35`
• `` -> `...36`
• `` -> `...37`
• `` -> `...38`
• `` -> `...39`
• `` -> `...40`
• `` -> `...41`
• `` -> `...42`
• `` -> `...43`
• `` -> `...44`
• `` -> `...45`
• `` -> `...46`
• `` -> `...47`
• `` -> `...48`
• `` -> `...49`
• `` -> `...50`
• `` -> `...51`
• `` -> `...52`
• `` -> `...53`
• `` -> `...54`
• `` -> `...55`
• `` -> `...56`
• `` -> `...57`
• `` -> `...58`
• `` -> `...59`
• `` -> `...60`
• `` -> `...61`
• `` -> `...62`
• `` -> `...63`
• `` -> `...64`
• `` -> `...65`
• `` -> `...66`
• `` -> `...67`
• `` -> `...68`
• `` -> `...69`
• `` -> `...70`
• `` -> `...71`
• `` -> `...72`
• `` -> `...73`
• `` -> `...74`
• `` -> `...75`
• `` -> `...76`
• `` -> `...77`
• `` -> `...78`
• `` -> `...79`
• `` -> `...80`
• `` -> `...81`
• `` -> `...82`
• `` -> `...83`
• `` -> `...84`
• `` -> `...85`
• `` -> `...86`
• `` -> `...87`
• `` -> `...88`
• `` -> `...89`
• `` -> `...90`
• `` -> `...91`
• `` -> `...92`
• `` -> `...93`
• `` -> `...94`
• `` -> `...95`
• `` -> `...96`
• `` -> `...97`
• `` -> `...98`
• `` -> `...99`
• `` -> `...100`
• `` -> `...101`
• `` -> `...102`
• `` -> `...103`
• `` -> `...104`
• `` -> `...105`
• `` -> `...106`
• `` -> `...107`
• `` -> `...108`
• `` -> `...109`
• `` -> `...110`
• `` -> `...111`
• `` -> `...112`
• `` -> `...113`
• `` -> `...114`
• `` -> `...115`
• `` -> `...116`
• `` -> `...117`
• `` -> `...118`
• `` -> `...119`
• `` -> `...120`
• `` -> `...121`
• `` -> `...122`
• `` -> `...123`
• `` -> `...124`
• `` -> `...125`
• `` -> `...126`
• `` -> `...127`
• `` -> `...128`
• `` -> `...129`
• `` -> `...130`
• `` -> `...131`
• `` -> `...132`
• `` -> `...133`
• `` -> `...134`
• `` -> `...135`
• `` -> `...136`
• `` -> `...137`
• `` -> `...138`
• `` -> `...139`
• `` -> `...140`
• `` -> `...141`
• `` -> `...142`
• `` -> `...143`
• `` -> `...144`
• `` -> `...145`
• `` -> `...146`
• `` -> `...147`
• `` -> `...148`
• `` -> `...149`
• `` -> `...150`
• `` -> `...151`
• `` -> `...152`
• `` -> `...153`
• `` -> `...154`
• `` -> `...155`
• `` -> `...156`
• `` -> `...157`
• `` -> `...158`
• `` -> `...159`
• `` -> `...160`
• `` -> `...161`
• `` -> `...162`
• `` -> `...163`
• `` -> `...164`
• `` -> `...165`
• `` -> `...166`
• `` -> `...167`
• `` -> `...168`
• `` -> `...169`
• `` -> `...170`
• `` -> `...171`
• `` -> `...172`
• `` -> `...173`
• `` -> `...174`
• `` -> `...175`
• `` -> `...176`
• `` -> `...177`
• `` -> `...178`
• `` -> `...179`
• `` -> `...180`
• `` -> `...181`
• `` -> `...182`
• `` -> `...183`
• `` -> `...184`
• `` -> `...185`
• `` -> `...186`
• `` -> `...187`
• `` -> `...188`
• `` -> `...189`
• `` -> `...190`
• `` -> `...191`
• `` -> `...192`
• `` -> `...193`
• `` -> `...194`
• `` -> `...195`
• `` -> `...196`
• `` -> `...197`
• `` -> `...198`
• `` -> `...199`
• `` -> `...200`
• `` -> `...201`
• `` -> `...202`
• `` -> `...203`
• `` -> `...204`
• `` -> `...205`
• `` -> `...206`
• `` -> `...207`
• `` -> `...208`
• `` -> `...209`
• `` -> `...210`
• `` -> `...211`
• `` -> `...212`
• `` -> `...213`
• `` -> `...214`
• `` -> `...215`
• `` -> `...216`
• `` -> `...217`
• `` -> `...218`
• `` -> `...219`
• `` -> `...220`
• `` -> `...221`
• `` -> `...222`
• `` -> `...223`
• `` -> `...224`
• `` -> `...225`
• `` -> `...226`
• `` -> `...227`
• `` -> `...228`
• `` -> `...229`
• `` -> `...230`
• `` -> `...231`
• `` -> `...232`
• `` -> `...233`
• `` -> `...234`
• `` -> `...235`
• `` -> `...236`
• `` -> `...237`
• `` -> `...238`
• `` -> `...239`
• `` -> `...240`
• `` -> `...241`
• `` -> `...242`
• `` -> `...243`
• `` -> `...244`
• `` -> `...245`
• `` -> `...246`
• `` -> `...247`
• `` -> `...248`
• `` -> `...249`
• `` -> `...250`
• `` -> `...251`
• `` -> `...252`
• `` -> `...253`
• `` -> `...254`
• `` -> `...255`
• `` -> `...256`
• `` -> `...257`
• `` -> `...258`
• `` -> `...259`
• `` -> `...260`
• `` -> `...261`
• `` -> `...262`
• `` -> `...263`
• `` -> `...264`
• `` -> `...265`
• `` -> `...266`
• `` -> `...267`
• `` -> `...268`
• `` -> `...269`
• `` -> `...270`
• `` -> `...271`
• `` -> `...272`
• `` -> `...273`
• `` -> `...274`
• `` -> `...275`
• `` -> `...276`
• `` -> `...277`
• `` -> `...278`
• `` -> `...279`
• `` -> `...280`
• `` -> `...281`
• `` -> `...282`
• `` -> `...283`
• `` -> `...284`
• `` -> `...285`
• `` -> `...286`
• `` -> `...287`
• `` -> `...288`
• `` -> `...289`
• `` -> `...290`
• `` -> `...291`
• `` -> `...292`
• `` -> `...293`
• `` -> `...294`
• `` -> `...295`
• `` -> `...296`
• `` -> `...297`
• `` -> `...298`
• `` -> `...299`
• `` -> `...300`
• `` -> `...301`
• `` -> `...302`
• `` -> `...303`
• `` -> `...304`
• `` -> `...305`
• `` -> `...306`
• `` -> `...307`
• `` -> `...308`
• `` -> `...309`
• `` -> `...310`
• `` -> `...311`
• `` -> `...312`
• `` -> `...313`
• `` -> `...314`
• `` -> `...315`
• `` -> `...316`
• `` -> `...317`
• `` -> `...318`
• `` -> `...319`
• `` -> `...320`
• `` -> `...321`
• `` -> `...322`
• `` -> `...323`
• `` -> `...324`
• `` -> `...325`
• `` -> `...326`
• `` -> `...327`
• `` -> `...328`
• `` -> `...329`
• `` -> `...330`
• `` -> `...331`
• `` -> `...332`
• `` -> `...333`
• `` -> `...334`
• `` -> `...335`
• `` -> `...336`
• `` -> `...337`
• `` -> `...338`
• `` -> `...339`
• `` -> `...340`
• `` -> `...341`
• `` -> `...342`
• `` -> `...343`
• `` -> `...344`
• `` -> `...345`
• `` -> `...346`
• `` -> `...347`
• `` -> `...348`
• `` -> `...349`
• `` -> `...350`
• `` -> `...351`
• `` -> `...352`
• `` -> `...353`
• `` -> `...354`
• `` -> `...355`
• `` -> `...356`
• `` -> `...357`
• `` -> `...358`
• `` -> `...359`
• `` -> `...360`
• `` -> `...361`
• `` -> `...362`
• `` -> `...363`
• `` -> `...364`
• `` -> `...365`
• `` -> `...366`
• `` -> `...367`
• `` -> `...368`
• `` -> `...369`
• `` -> `...370`
• `` -> `...371`
• `` -> `...372`
• `` -> `...373`
• `` -> `...374`
• `` -> `...375`
• `` -> `...376`
• `` -> `...377`
• `` -> `...378`
• `` -> `...379`
• `` -> `...380`
• `` -> `...381`
• `` -> `...382`
• `` -> `...383`
• `` -> `...384`
• `` -> `...385`
• `` -> `...386`
• `` -> `...387`
• `` -> `...388`
• `` -> `...389`
• `` -> `...390`
• `` -> `...391`
• `` -> `...392`
• `` -> `...393`
• `` -> `...394`
• `` -> `...395`
• `` -> `...396`
• `` -> `...397`
• `` -> `...398`
• `` -> `...399`
• `` -> `...400`
• `` -> `...401`
• `` -> `...402`
• `` -> `...403`
• `` -> `...404`
• `` -> `...405`
• `` -> `...406`
• `` -> `...407`
• `` -> `...408`
• `` -> `...409`
• `` -> `...410`
• `` -> `...411`
• `` -> `...412`
• `` -> `...413`
• `` -> `...414`
• `` -> `...415`
• `` -> `...416`
• `` -> `...417`
• `` -> `...418`
• `` -> `...419`
• `` -> `...420`
• `` -> `...421`
• `` -> `...422`
• `` -> `...423`
• `` -> `...424`
• `` -> `...425`
• `` -> `...426`
• `` -> `...427`
• `` -> `...428`
• `` -> `...429`
• `` -> `...430`
• `` -> `...431`
• `` -> `...432`
• `` -> `...433`
• `` -> `...434`
• `` -> `...435`
• `` -> `...436`
• `` -> `...437`
• `` -> `...438`
• `` -> `...439`
• `` -> `...440`
• `` -> `...441`
• `` -> `...442`
• `` -> `...443`
• `` -> `...444`
• `` -> `...445`
• `` -> `...446`
• `` -> `...447`
• `` -> `...448`
• `` -> `...449`
• `` -> `...450`
• `` -> `...451`
• `` -> `...452`
• `` -> `...453`
• `` -> `...454`
• `` -> `...455`
• `` -> `...456`
• `` -> `...457`
• `` -> `...458`
• `` -> `...459`
• `` -> `...460`
• `` -> `...461`
• `` -> `...462`
• `` -> `...463`
• `` -> `...464`
• `` -> `...465`
• `` -> `...466`
• `` -> `...467`
• `` -> `...468`
• `` -> `...469`
• `` -> `...470`
• `` -> `...471`
• `` -> `...472`
• `` -> `...473`
• `` -> `...474`
• `` -> `...475`
• `` -> `...476`
• `` -> `...477`
• `` -> `...478`
• `` -> `...479`
• `` -> `...480`
• `` -> `...481`
• `` -> `...482`
• `` -> `...483`
• `` -> `...484`
• `` -> `...485`
• `` -> `...486`
• `` -> `...487`
• `` -> `...488`
• `` -> `...489`
• `` -> `...490`
• `` -> `...491`
• `` -> `...492`
• `` -> `...493`
• `` -> `...494`
• `` -> `...495`
• `` -> `...496`
• `` -> `...497`
• `` -> `...498`
• `` -> `...499`
• `` -> `...500`
• `` -> `...501`
• `` -> `...502`
• `` -> `...503`
• `` -> `...504`
• `` -> `...505`
• `` -> `...506`
• `` -> `...507`
• `` -> `...508`
• `` -> `...509`
• `` -> `...510`
• `` -> `...511`
• `` -> `...512`
• `` -> `...513`
• `` -> `...514`
• `` -> `...515`
• `` -> `...516`
• `` -> `...517`
• `` -> `...518`
• `` -> `...519`
• `` -> `...520`
• `` -> `...521`
• `` -> `...522`
• `` -> `...523`
• `` -> `...524`
• `` -> `...525`
• `` -> `...526`
• `` -> `...527`
• `` -> `...528`
• `` -> `...529`
• `` -> `...530`
• `` -> `...531`
• `` -> `...532`
• `` -> `...533`
• `` -> `...534`
• `` -> `...535`
• `` -> `...536`
• `` -> `...537`
• `` -> `...538`
• `` -> `...539`
• `` -> `...540`
• `` -> `...541`
• `` -> `...542`
• `` -> `...543`
• `` -> `...544`
• `` -> `...545`
• `` -> `...546`
• `` -> `...547`
• `` -> `...548`
• `` -> `...549`
• `` -> `...550`
• `` -> `...551`
• `` -> `...552`
• `` -> `...553`
• `` -> `...554`
• `` -> `...555`
• `` -> `...556`
• `` -> `...557`
• `` -> `...558`
• `` -> `...559`
• `` -> `...560`
• `` -> `...561`
• `` -> `...562`
• `` -> `...563`
• `` -> `...564`
• `` -> `...565`
• `` -> `...566`
• `` -> `...567`
• `` -> `...568`
• `` -> `...569`
• `` -> `...570`
• `` -> `...571`
• `` -> `...572`
• `` -> `...573`
• `` -> `...574`
• `` -> `...575`
• `` -> `...576`
• `` -> `...577`
• `` -> `...578`
• `` -> `...579`data |> head()Отрисовка данных IP
dates <- seq(as.Date("1970-01-01"), as.Date("2018-1-30"), by = "month")
IP_values <- data[2, -c(1, 2)] |> as.double()
plot(dates, IP_values, type="l")
Cissa
Отрисовка трендовой составляющей чёрным цветом, основной временной ряд — красным
data_slice <- 1:537
dates_slice <- dates[data_slice]
IP_values_slice <- IP_values[data_slice]
eps <- 1/193
c <- circulant_SSA(IP_values_slice, L = 192, extend_flag = TRUE)
r <- c$t_series
r <- grouping_cissa(c,
groups = list(
trend = c(0, 1/192),
cycle = c(1/97, 5/95),
sesonal = c(1/13, 1/2+0.0001)
)
)$t_series
r_sesonal <- grouping_cissa(c,
groups = list(
s1 = c(16/192 - eps, 16/192 + eps),
s2 = c(32/192 - eps, 32/192 + eps),
s3 = c(48/192 - eps, 48/192 + eps),
s4 = c(64/192 - eps, 64/192 + eps),
s5 = c(80/192 - eps, 80/192 + eps),
s6 = c(96/192 - eps, 96/192 + eps)
)
)$t_series
# cissa_trend <- r[,1] + r[,2]
# cissa_cycle <- r[, 3:11] |> rowSums()
# cissa_sesonal <- r[, c(17, 33, 49, 65, 81, 97)] |> rowSums()
# cissa_residuals <- IP_values_slice - (cissa_trend + cissa_cycle + cissa_sesonal)
cissa_trend <- r$trend
cissa_cycle <- r$cycle
cissa_sesonal <- Reduce("+", r_sesonal |> within(rm(residuals)))
cissa_residuals <- IP_values_slice - (cissa_trend + cissa_cycle + cissa_sesonal)
plot(dates_slice, IP_values_slice,
type="l", col = "black")
lines(dates_slice, cissa_trend,
type="l", col = "red")
plot(dates_slice, cissa_cycle,
type="l", col = "red")
plot(dates_slice, cissa_sesonal,
type="l", col = "red")
plot(dates_slice, cissa_residuals,
type="l", col = "red")
plot(dates_slice, IP_values_slice,
type="l", col = "black")
lines(dates_slice, cissa_trend+cissa_cycle+cissa_sesonal,
type="l", col = "red")
SSA fossa
s <- ssa(IP_values_slice, L = 192)
e <- fossa(s)
# e <- eossa_new(s, nested.groups = list(1:30), clust_type = "distance")
eps <- 1/193
groups <- grouping.auto(e,
freq.bins = list(trend = c(1/192),
cycle = c(1/97, 5/95),
s1 = c(16/192 - eps, 16/192 + eps),
s2 = c(32/192 - eps, 32/192 + eps),
s3 = c(48/192 - eps, 48/192 + eps),
s4 = c(64/192 - eps, 64/192 + eps),
s5 = c(80/192 - eps, 80/192 + eps),
s6 = c(96/192 - eps, 96/192 + eps)
),
threshold = 0)
plot(wcor(e, groups = 1:30), scales = list(at = c(10, 20, 30)),
main = "W-correlation matrix SSA (fossa)")
r <- reconstruct(e, groups=groups)
ssa_trend_f <- r$trend
ssa_cycle_f <- r$cycle
ssa_sesonal_f <- r$s1 + r$s2 + r$s3 + r$s4 + r$s5 + r$s6
ssa_residuals_f <- IP_values_slice - (ssa_trend_f + ssa_cycle_f + ssa_sesonal_f)
plot(dates_slice, IP_values_slice,
type="l", col = "black")
lines(dates_slice, ssa_trend_f,
type="l", col = "magenta")
plot(dates_slice, ssa_cycle_f,
type="l", col = "magenta")
plot(dates_slice, ssa_sesonal_f,
type="l", col = "magenta")
plot(dates_slice, ssa_residuals_f,
type="l", col = "magenta")
SSA eossa
library(Rssa)
source("eossa_new.r")
s <- ssa(IP_values_slice, L = 192)
e <- eossa_new(s, nested.groups = list(1:30), clust_type = "distance")
groups <- grouping.auto(e,
freq.bins = list(trend = c(1/192),
cycle = c(1/97, 5/95),
s1 = c(16/192 - eps, 16/192 + eps),
s2 = c(32/192 - eps, 32/192 + eps),
s3 = c(48/192 - eps, 48/192 + eps),
s4 = c(64/192 - eps, 64/192 + eps),
s5 = c(80/192 - eps, 80/192 + eps),
s6 = c(96/192 - eps, 96/192 + eps)
),
threshold = 0)
plot(wcor(e, groups = 1:30), scales = list(at = c(10, 20, 30)),
main = "W-correlation matrix SSA (eossa)")Предупреждение в wcor.ossa(e, groups = 1:30) :
Component matrices are not F-orthogonal (max F-cor is -0.0621). W-cor matrix can be irrelevant
r <- reconstruct(e, groups=groups)
ssa_trend <- r$trend
ssa_cycle <- r$cycle
ssa_sesonal <- r$s1 + r$s2 + r$s3 + r$s4 + r$s5 + r$s6
ssa_residuals <- IP_values_slice - (ssa_trend + ssa_cycle + ssa_sesonal)
plot(dates_slice, IP_values_slice,
type="l", col = "black")
lines(dates_slice, ssa_trend,
type="l", col = "blue")
plot(dates_slice, ssa_cycle,
type="l", col = "blue")
plot(dates_slice, ssa_sesonal,
type="l", col = "blue")
plot(dates_slice, ssa_residuals,
type="l", col = "blue")
plot(dates_slice, IP_values_slice,
main = "IP USA тренд",xlab = "Время", ylab = "Значение",
type="l", col = "black")
lines(dates_slice, ssa_trend,
type="l", col = "blue", lwd=2)lines(dates_slice, ssa_trend_f,
type="l", col = "magenta", lwd=2)
lines(dates_slice, cissa_trend,
type="l", col = "red", lwd=2)# Легенда
legend("topleft", legend = c("Весь ряд", "CiSSA тренд", "SSA тренд (eossa)", "SSA тренд (fossa)"),
col = c("black", "red", "blue", "magenta"), lty = 1, lwd = 3)
plot(dates_slice, ssa_cycle,
main = "IP USA цикличность", xlab = "Время", ylab = "Значение",
type="l", col = "blue", ylim=c(-10, 10), lwd=2)
lines(dates_slice, cissa_cycle,
type="l", col = "red", lwd=2)lines(dates_slice, ssa_cycle_f,
type="l", col = "magenta", lwd=2)
# Легенда
legend("topleft", legend = c("CiSSA", "SSA (eossa)", "SSA (fossa)"),
col = c("red", "blue", "magenta"), lty = 1, lwd = 3)
# Настройка графиков для отображения двух графиков один под другим с общей осью X
layout(matrix(c(1, 2), nrow = 2, byrow = TRUE), heights = c(1, 1.2))
# Построение первого графика
par(mar = c(2, 4, 2, 2)) # Уменьшение нижнего отступа
plot(dates_slice, ssa_sesonal, type = "l", col = "blue", lwd = 1,
main = "SSA (eossa) сезонность", xlab = "", ylab = "Значение")
# Добавление оси X внизу первого графика, но с пустыми метками
axis(1, labels = FALSE)
# Построение второго графика
par(mar = c(5, 4, 2, 2)) # Увеличение нижнего отступа
plot(dates_slice, ssa_sesonal_f, type = "l", col = "magenta", lwd = 1,
main = "SSA (fossa) сезонность", xlab = "Время", ylab = "Значение")
par(mar = c(3, 4, 2, 2)) # Увеличение нижнего отступа
plot(dates_slice, cissa_sesonal, type = "l", col = "red", lwd = 1,
main = "CiSSA сезонность", xlab = "Время", ylab = "Значение")
# Восстановление макета по умолчанию
layout(1)
NA
NAplot(dates_slice, ssa_residuals,
main = "IP USA остаток", xlab = "Время", ylab = "Значение",
type="l", col = "blue", ylim=c(-2, 2))
lines(dates_slice, cissa_residuals,
type="l", col = "red")lines(dates_slice, ssa_residuals_f,
type="l", col = "magenta")
legend("topleft", legend = c("CiSSA", "SSA (eossa)", "SSA (fossa)"),
col = c("red", "blue", "magenta"), lty = 1, lwd = 3)
ssa_residuals |> density() |> plot()
cissa_residuals |> density() |> plot()
Отделение сигнала от шума
set.seed(100)
n_mse_tests <- function(n){
n <- 96*2-1
L <- 96
sigma <- 0.1
C <- 1
omega_cs <- 1/12
omega_sn <- 1/24
a <- 1/100
f_sum <- function(x){
f_const(x, C = C) +
f_cos(x, omega = omega_cs) +
f_exp(x, a = a) +
f_sin(x, omega = omega_sn)
}
f_C <- f_const |> generate_ts(n, C = C)
f_c <- f_cos |> generate_ts(n, omega = omega_cs)
f_s <- f_sin |> generate_ts(n, omega = omega_sn)
f_e <- f_exp |> generate_ts(n, a = a)
mse_lst <- list()
for (i in 1:n) {
f_noise <- rnorm(n, sd = sigma)
f_n <- f_sum(1:n) + f_noise
c <- circulant_SSA(f_n, L = L, extend_flag = TRUE)
# r <- c$t_series
r <- grouping_cissa(c, groups= list(trend = c(0, 1/1000),
sesonal2 = c(1/25, 1/23),
sesonal1 = c(1/13, 1/10)
))$t_series
# mse_lst$cissa <- c(mse_lst$cissa, mse(f_sum(1:n), r[, 9] + r[, 5] + r[, 1]))
mse_lst$cissa <- c(mse_lst$cissa,
mse(f_sum(1:n),
r$trend + r$sesonal1 + r$sesonal2))
s <- ssa(f_n, L)
# e <- eossa(s, 1:10, k = 6)
e <- fossa(s)
g_sesonal <- grouping.auto(e, base = "eigen",
freq.bins = list(trend = 1/1000,
sesonal2 = c(1/25, 1/23),
sesonal1 = c(1/13, 1/10)
),
threshold = 0.5)
r <- reconstruct(e, groups=c(list(exp = 1, C = 2), g_sesonal))
mse_lst$ssa <-
c(mse_lst$ssa, mse(f_sum(1:n), r$trend + r$sesonal2 + r$sesonal1))
}
return(mse_lst)
}
res_mse_test <- n_mse_tests(10000)
# Оценка плотности
density_estimate_cissa <- density(res_mse_test$cissa)
# Построение графика плотности
plot(density_estimate_cissa, main = "Оценка плотности",
xlab = "Значение", ylab = "Плотность",
col = "blue", lwd = 2)
density_estimate_ssa <- density(res_mse_test$ssa)
# Построение графика плотности
plot(density_estimate_ssa, main = "Оценка плотности",
xlab = "Значение", ylab = "Плотность",
col = "blue", lwd = 2)
res_mse_test$cissa |> summary() Min. 1st Qu. Median Mean 3rd Qu. Max.
0.02299 0.03062 0.03345 0.03378 0.03575 0.04800 res_mse_test$cissa |> sd()[1] 0.004333975res_mse_test$ssa |> summary() Min. 1st Qu. Median Mean 3rd Qu. Max.
0.000576 0.001710 0.002125 0.002228 0.002585 0.006311 res_mse_test$ssa |> sd()[1] 0.0008283841Как выполняется расширение ряда
IP_values_slice |> extend(192) |>
plot(type="l", lwd = 3, ylab="Значения", xlab = "Индексы", main="Расширение временного ряда IP values")
lines((192:(length(IP_values_slice) + 192 -1)) + 1, IP_values_slice, type="l", col="red")
n <- 96*2 + 6
x <- 0:(n-1)
y <- sin(2*pi/12 * x)
L <- 96+6
plot(y |> extend(L), type="l", lwd = 4, ylab="Значения", xlab = "Индексы", main="Расширение временного ряда sin")
lines((x+L+1), y, type="l", col="red", lwd = 2)
CiSSA через Фурье
IP_values
cissa_like_fourier_transform <- function(ts, L){
reconstruct_fft <- function(x, y, frequencies) {
fft_y <- fft(y)
amplitudes <- Mod(fft_y)
phases <- Arg(fft_y)
reconstructed <- matrix(0, length(amplitudes), length(x))
n <- length(amplitudes)
for (i in 1:(length(amplitudes))) {
reconstructed[i, ] <-
amplitudes[i] *
cos(2 * pi * frequencies[i] * (x) + phases[i]) /
n
}
return(list(
ts = reconstructed,
frequencies = frequencies
))
}
n <- length(ts)
x <- 0:(n-1)
L <- L
frequencies <- (0:(L-1)) / L
y <- ts
y_main <- y
x_main <- x
X <- hankel(y, L)
K <- dim(X)[2]
res <- list()
for (i in 1:K){
y <- X[, i]
x <- x_main[1:(1 + L - 1)]
res[[i]] <- reconstruct_fft(x, y, frequencies)$ts
}
# for (i in 1:L){
# plot(x, res[[i]][9, ])
# }
res_mult <- res
# res
averaging <- function(res_comp_wise_mult){
K <- dim(X)[2]
counters <- rep(0, n)
res <- matrix(0, ncol = n, nrow = L)
for (i in 1:length(res_comp_wise_mult)){
res[, i:(i+L-1)] <- res[, i:(i+L-1)] + res_comp_wise_mult[[i]]
counters[i:(i+L-1)] <- counters[i:(i+L-1)] + 1
}
for (i in 1:n){
res[, i] <- res[, i] / counters[i]
}
res
}
avr <- averaging(res_mult)
group_by_elementary_freq_foureir <- function(res_averaged){
nf2 <- 0
if (L %% 2) {
nf2 <- (L + 1) / 2 - 1
} else {
nf2 <- L / 2 - 1
}
nft <- nf2 + abs((L %% 2) - 2)
Z <- matrix(0, ncol = nft, nrow = n)
# print(Z |> dim())
# print(res_averaged |> dim())
Z[, 1] <- res_averaged[1, ]
for (k in 1:nf2) {
Z[, k + 1] <- res_averaged[k + 1, ] + res_averaged[L + 2 - (k + 1), ]
}
if (L %% 2 != 0) {
Z[, nft] <- res_averaged[nft, ]
}
return(list(
t_series = Z,
freq = (0:dim(Z)[2])/L
))
}
rs <- group_by_elementary_freq_foureir(avr)
return(rs)
}
data_slice <- 1:537
dates_slice <- dates[data_slice]
IP_values_slice <- IP_values[data_slice]
eps <- 1/193
c <- circulant_SSA(IP_values_slice, L = 192, extend_flag = FALSE)
r <- c$t_series
c_ft <- cissa_like_fourier_transform(IP_values_slice, L = 192)
r_ft <- c_ft$t_series
for (i in 1:dim(r)[2]){
plot(data_slice, r_ft[, i], col= "red", type = "l", lwd = 2)
lines(data_slice, r[, i])
}
Сравнение разложений всего временного ряда через метод Фурье, SSA, auto_SSA, CiSSA и CiSSA с расширением ряда
reconstruct_fft <- function(x_init, y_init, extend_flag = FALSE) {
x <- x_init
y <- y_init
N <- length(y_init)
H <- 0
if (extend_flag == TRUE){
H <- length(y) %/% 2
y <- extend(y, H)
x <- 0:(length(y) - 1)
}
frequencies <- (0:(length(x)-1)) / length(x)
fft_y <- fft(y)
amplitudes <- Mod(fft_y)
phases <- Arg(fft_y)
reconstructed <- matrix(0, length(amplitudes), length(x))
n <- length(amplitudes)
L <- n
for (i in 1:(length(amplitudes))) {
reconstructed[i, ] <-
amplitudes[i] *
cos(2 * pi * frequencies[i] * (x) + phases[i]) /
n
}
group_by_elementary_freq_foureir <- function(res_averaged){
nf2 <- 0
if (L %% 2) {
nf2 <- (L + 1) / 2 - 1
} else {
nf2 <- L / 2 - 1
}
nft <- nf2 + abs((L %% 2) - 2)
Z <- matrix(0, ncol = nft, nrow = n)
# print(Z |> dim())
# print(res_averaged |> dim())
Z[, 1] <- res_averaged[1, ]
for (k in 1:nf2) {
Z[, k + 1] <- res_averaged[k + 1, ] + res_averaged[L + 2 - (k + 1), ]
}
if (L %% 2 != 0) {
Z[, nft] <- res_averaged[nft, ]
}
return(list(
t_series = Z[(H+1):(N+H), ],
freq = (0:(dim(Z)[2]-1))/L
))
}
rs <- group_by_elementary_freq_foureir(reconstructed)
return(list(
t_series = rs$t_series,
freq = rs$freq
))
}Идеальный случай для CiSSA и Fourier
n <- 96*2
L <- 96
x <- 0:(n-1)
y1 <- sin(2*pi/12 * x)
y2 <- cos(2*pi/3 * x)/2
y <- y1 + y2
X <- hankel(y, L = L)
eps <- 1/(n+1)
s_ssa <- ssa(y[1:(n-1)], L)
r_ssa <- reconstruct(s_ssa, groups = list(
F1 = c(1, 2),
F2 = c(3, 4)
))
# r_ssa <- reconstruct(s_ssa, groups=list(
# sesonal_sin = c(1, 2),
# sesonal_cos = c(3, 4)
# ))
# plot(x, r_ssa$F1, type="l")
# plot(x, r_ssa$F2, type= "l")
# plot(wcor(s_ssa, groups = 1:10), scales = list(at = c(10, 20, 30)))
e_ssa <- eossa_new(s_ssa, nested.groups = list(1:4), clust_type = "distance")
g_sesonal_e <- grouping.auto(e_ssa, base = "eigen",
freq.bins = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
),
threshold = 0.5)
r_ssa_e <- reconstruct(e_ssa, groups=g_sesonal_e)
# plot(x, r_ssa_e$sesonal_sin)
# plot(x, r_ssa_e$sesonal_cos)
r_fft <- reconstruct_fft(x, y)
r_fft_grouped <- grouping_cissa(r_fft,
groups = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
r_fft_extended <- reconstruct_fft(x, y, TRUE)
r_fft_grouped_extended <- grouping_cissa(r_fft_extended,
groups = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
# r_fft_grouped$sesonal_sin |> length()
# plot(x, r_fft_grouped$sesonal_sin)
# plot(x, r_fft_grouped$sesonal_cos)
# plot(x, r_fft_grouped$residuals)
r_cissa <- circulant_SSA(y, L)
r_cissa_grouped <- grouping_cissa(r_cissa,
groups = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
r_cissa_ext <- circulant_SSA(y, L, extend_flag = TRUE)
r_cissa_grouped_ext <- grouping_cissa(r_cissa_ext,
groups = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
# plot(x, r_cissa_grouped$sesonal_sin)
# plot(x, r_cissa_grouped$sesonal_cos)
# plot(x, r_cissa_grouped$residuals)
library(xtable)
# Шаг 2: Создание примера данных
data <- data.frame(
Метод = c("SSA", "SSA EOSSA","Fourier", "CiSSA", "CiSSA extended", "Fourier extended"),
sin_err = c (1, 20, 20, 1, 1, 1),
cos_err = c(1, 1, 1, 1, 1, 1),
all_err = c(1, 1, 1, 1, 1, 1)
)
data$sin_err[1] <- mse(y1[1:(n-1)], r_ssa$F1) |>
formatC(format = "e", digits = 1)
data$cos_err[1] <- mse(y2[1:(n-1)], r_ssa$F2) |>
formatC(format = "e", digits = 1)
data$all_err[1] <- mse(y1[1:(n-1)] + y2[1:(n-1)], r_ssa$F1 + r_ssa$F2) |>
formatC(format = "e", digits = 1)
data$cos_err[2] <- mse(y1[1:(n-1)], r_ssa_e$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[2] <- mse(y2[1:(n-1)], r_ssa_e$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$all_err[2] <- mse(y1[1:(n-1)] + y2[1:(n-1)],
r_ssa_e$sesonal_sin + r_ssa_e$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$cos_err[3] <- mse(y1, r_fft_grouped$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[3] <- mse(y2, r_fft_grouped$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$all_err[3] <- mse(y1 + y2,
r_fft_grouped$sesonal_sin + r_fft_grouped$sesonal_cos
) |>
formatC(format = "e", digits = 1)
data$cos_err[4] <- mse(y1, r_cissa_grouped$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[4] <- mse(y2, r_cissa_grouped$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$all_err[4] <- mse(y1 + y2,
r_cissa_grouped$sesonal_sin + r_cissa_grouped$sesonal_cos
) |>
formatC(format = "e", digits = 1)
data$cos_err[5] <- mse(y1, r_cissa_grouped_ext$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[5] <- mse(y2, r_cissa_grouped_ext$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$all_err[5] <- mse(y1 + y2,
r_cissa_grouped_ext$sesonal_sin + r_cissa_grouped_ext$sesonal_cos
) |>
formatC(format = "e", digits = 1)
data$cos_err[6] <- mse(y1, r_fft_grouped_extended$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[6] <- mse(y2, r_fft_grouped_extended$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$all_err[6] <- mse(y1 + y2,
r_fft_grouped_extended$sesonal_sin + r_fft_grouped_extended$sesonal_cos
) |>
formatC(format = "e", digits = 1)
table_latex <- xtable(data, caption = "Example Table")
# Шаг 4: Вывод таблицы в LaTeX файл
print(table_latex, include.rownames = FALSE)% latex table generated in R 4.2.2 by xtable 1.8-4 package
% Sun Feb 16 17:53:39 2025
\begin{table}[ht]
\centering
\begin{tabular}{llll}
\hline
Метод & sin\_err & cos\_err & all\_err \\
\hline
SSA & 6.8e-30 & 1.5e-29 & 1.8e-29 \\
SSA EOSSA & 1.5e-29 & 7.5e-30 & 2.0e-29 \\
Fourier & 1.7e-28 & 3.5e-28 & 5.1e-28 \\
CiSSA & 1.9e-29 & 5.3e-30 & 2.1e-29 \\
CiSSA extended & 2.0e-04 & 8.6e-04 & 1.1e-03 \\
Fourier extended & 6.2e-04 & 2.6e-03 & 3.2e-03 \\
\hline
\end{tabular}
\caption{Example Table}
\end{table}Идеальный случай с шумом
data <- list(
Метод = c("SSA","SSA EOSSA","Fourier", "CiSSA", "CiSSA extended", "Fourier extended"),
sin_err = list(list(), list(), list(), list(), list(), list()),
cos_err = list(list(), list(), list(), list(), list(), list()),
all_err = list(list(), list(), list(), list(), list(), list())
)
for (i in 1:100){
set.seed(i)
n <- 96*2
L <- 96
x <- 0:(n-1)
y1 <- sin(2*pi/12 * x)
y2 <- cos(2*pi/3 * x)/2
y <- y1 + y2 + rnorm(n, 0, 0.1)
X <- hankel(y, L = L)
eps <- 1/(n+1)
s_ssa <- ssa(y[1:(n-1)], L)
r_ssa <- reconstruct(s_ssa, groups = list(
F1 = c(1, 2),
F2 = c(3, 4)
))
# r_ssa <- reconstruct(s_ssa, groups=list(
# sesonal_sin = c(1, 2),
# sesonal_cos = c(3, 4)
# ))
# plot(x[1:(n-1)], r_ssa$F1, type = "l")
# plot(x[1:(n-1)], r_ssa$F2, type = "l")
# plot(wcor(s_ssa, groups = 1:10), scales = list(at = c(10, 20, 30)))
e_ssa <- eossa_new(s_ssa, nested.groups = list(1:4), clust_type = "distance")
g_sesonal_e <- grouping.auto(e_ssa, base = "eigen",
freq.bins = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
),
threshold = 0.5)
r_ssa_e <- reconstruct(e_ssa, groups=g_sesonal_e)
# plot(x, r_ssa_e$sesonal_sin)
# plot(x, r_ssa_e$sesonal_cos)
r_fft <- reconstruct_fft(x, y)
r_fft_grouped <- grouping_cissa(r_fft,
groups = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
r_fft_extended <- reconstruct_fft(x, y, TRUE)
r_fft_grouped_extended <- grouping_cissa(r_fft_extended,
groups = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
# r_fft_grouped$sesonal_sin |> length()
# plot(x, r_fft_grouped$sesonal_sin)
# plot(x, r_fft_grouped$sesonal_cos)
# plot(x, r_fft_grouped$residuals)
r_cissa <- circulant_SSA(y, L)
r_cissa_grouped <- grouping_cissa(r_cissa,
groups = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
r_cissa_ext <- circulant_SSA(y, L, extend_flag = TRUE)
r_cissa_grouped_ext <- grouping_cissa(r_cissa_ext,
groups = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
data$cos_err[[1]][[i]] <-
min(mse(y1[1:(n-1)], r_ssa$F1), mse(y1[1:(n-1)], r_ssa$F2))
data$sin_err[[1]][[i]] <-
min(mse(y2[1:(n-1)], r_ssa$F1), mse(y2[1:(n-1)], r_ssa$F2))
data$all_err[[1]][[i]] <-
min(mse(y1[1:(n-1)]+y2[1:(n-1)], r_ssa$F1+ r_ssa$F2))
data$cos_err[[2]][[i]] <- mse(y1[1:(n-1)], r_ssa_e$sesonal_sin)
data$sin_err[[2]][[i]] <- mse(y2[1:(n-1)], r_ssa_e$sesonal_cos)
data$all_err[[2]][[i]] <- mse(y1[1:(n-1)]+ y2[1:(n-1)],
r_ssa_e$sesonal_sin + r_ssa_e$sesonal_cos)
data$cos_err[[3]][[i]] <- mse(y1, r_fft_grouped$sesonal_sin)
data$sin_err[[3]][[i]] <- mse(y2, r_fft_grouped$sesonal_cos)
data$all_err[[3]][[i]] <- mse(y1 + y2,
r_fft_grouped$sesonal_cos + r_fft_grouped$sesonal_sin)
data$cos_err[[4]][[i]] <- mse(y1, r_cissa_grouped$sesonal_sin)
data$sin_err[[4]][[i]] <- mse(y2, r_cissa_grouped$sesonal_cos)
data$all_err[[4]][[i]] <- mse(y1 + y2,
r_cissa_grouped$sesonal_sin + r_cissa_grouped$sesonal_cos
)
data$cos_err[[5]][[i]] <- mse(y1, r_cissa_grouped_ext$sesonal_sin)
data$sin_err[[5]][[i]] <- mse(y2, r_cissa_grouped_ext$sesonal_cos)
data$all_err[[5]][[i]] <- mse(y1 + y2,
r_cissa_grouped_ext$sesonal_sin + r_cissa_grouped_ext$sesonal_cos
)
data$cos_err[[6]][[i]] <- mse(y1, r_fft_grouped_extended$sesonal_sin)
data$sin_err[[6]][[i]] <- mse(y2, r_fft_grouped_extended$sesonal_cos)
data$all_err[[6]][[i]] <- mse(y1 + y2,
r_fft_grouped_extended$sesonal_sin + r_fft_grouped_extended$sesonal_cos
)
}
library(xtable)
# Шаг 2: Создание примера данных
data_prev <- data
data <- data.frame(
Метод = c("SSA", "SSA EOSSA","Fourier", "CiSSA", "CiSSA extended", "Fourier extended"),
sin_err = c(0, 0, 0, 0, 0, 0),
cos_err = c(0, 0, 0, 0, 0, 0),
all_err = c(0, 0, 0, 0, 0, 0)
)
data$cos_err[1] <- mean(data_prev$cos_err[[1]] |> unlist()) |>
formatC(format = "e", digits = 1)
data$sin_err[1] <- mean(data_prev$sin_err[[1]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$all_err[1] <- mean(data_prev$all_err[[1]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$cos_err[2] <- mean(data_prev$cos_err[[2]] |> unlist()) |>
formatC(format = "e", digits = 1)
data$sin_err[2] <- mean(data_prev$sin_err[[2]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$all_err[2] <- mean(data_prev$all_err[[2]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$cos_err[3] <- mean(data_prev$cos_err[[3]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$sin_err[3] <- mean(data_prev$sin_err[[3]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$all_err[3] <- mean(data_prev$all_err[[3]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$cos_err[4] <- mean(data_prev$cos_err[[4]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$sin_err[4] <- mean(data_prev$sin_err[[4]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$all_err[4] <- mean(data_prev$all_err[[4]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$cos_err[5] <- mean(data_prev$cos_err[[5]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$sin_err[5] <- mean(data_prev$sin_err[[5]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$all_err[5] <- mean(data_prev$all_err[[5]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$cos_err[6] <- mean(data_prev$cos_err[[6]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$sin_err[6] <- mean(data_prev$sin_err[[6]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$all_err[6] <- mean(data_prev$all_err[[6]]|> unlist()) |>
formatC(format = "e", digits = 1)
for (i in 1:6){
for (j in (i):6){
x <- data_prev$cos_err[[i]] |> unlist()
y <- data_prev$cos_err[[j]] |> unlist()
t_test_result <- t.test(x, y, paired = TRUE)
print(paste("cos, ", data$Метод[i], " ", data$Метод[j], ", p-val = ", t_test_result$p.value))
}
}[1] "cos, SSA SSA , p-val = NaN"
[1] "cos, SSA SSA EOSSA , p-val = 4.4705711361447e-05"
[1] "cos, SSA Fourier , p-val = 5.30848050504907e-20"
[1] "cos, SSA CiSSA , p-val = 2.98626448986158e-20"
[1] "cos, SSA CiSSA extended , p-val = 5.35308949018552e-37"
[1] "cos, SSA Fourier extended , p-val = 2.61456030462997e-59"
[1] "cos, SSA EOSSA SSA EOSSA , p-val = NaN"
[1] "cos, SSA EOSSA Fourier , p-val = 5.30815210685059e-20"
[1] "cos, SSA EOSSA CiSSA , p-val = 2.98721789488757e-20"
[1] "cos, SSA EOSSA CiSSA extended , p-val = 5.24897277920756e-37"
[1] "cos, SSA EOSSA Fourier extended , p-val = 2.58891311835391e-59"
[1] "cos, Fourier Fourier , p-val = NaN"
[1] "cos, Fourier CiSSA , p-val = 1.70228094341221e-10"
[1] "cos, Fourier CiSSA extended , p-val = 4.47998903141858e-42"
[1] "cos, Fourier Fourier extended , p-val = 2.90661284766219e-62"
[1] "cos, CiSSA CiSSA , p-val = NaN"
[1] "cos, CiSSA CiSSA extended , p-val = 3.33436422220891e-40"
[1] "cos, CiSSA Fourier extended , p-val = 3.27079203462158e-61"
[1] "cos, CiSSA extended CiSSA extended , p-val = NaN"
[1] "cos, CiSSA extended Fourier extended , p-val = 1.82605722656699e-64"
[1] "cos, Fourier extended Fourier extended , p-val = NaN"for (i in 1:6){
for (j in (i):6){
x <- data_prev$sin_err[[i]] |> unlist()
y <- data_prev$sin_err[[j]] |> unlist()
t_test_result <- t.test(x, y, paired = TRUE)
print(paste("sin, ", data$Метод[i], " ", data$Метод[j], ", p-val = ", t_test_result$p.value))
}
}[1] "sin, SSA SSA , p-val = NaN"
[1] "sin, SSA SSA EOSSA , p-val = 5.55731118903082e-18"
[1] "sin, SSA Fourier , p-val = 7.32586799185552e-20"
[1] "sin, SSA CiSSA , p-val = 5.06061567708895e-19"
[1] "sin, SSA CiSSA extended , p-val = 1.47978944226882e-21"
[1] "sin, SSA Fourier extended , p-val = 7.90332165341783e-43"
[1] "sin, SSA EOSSA SSA EOSSA , p-val = NaN"
[1] "sin, SSA EOSSA Fourier , p-val = 7.00903680548176e-20"
[1] "sin, SSA EOSSA CiSSA , p-val = 4.86142494601895e-19"
[1] "sin, SSA EOSSA CiSSA extended , p-val = 1.75054970045824e-21"
[1] "sin, SSA EOSSA Fourier extended , p-val = 8.8573857160748e-43"
[1] "sin, Fourier Fourier , p-val = NaN"
[1] "sin, Fourier CiSSA , p-val = 1.84578267967756e-11"
[1] "sin, Fourier CiSSA extended , p-val = 3.59520276363416e-35"
[1] "sin, Fourier Fourier extended , p-val = 3.2131198725477e-51"
[1] "sin, CiSSA CiSSA , p-val = NaN"
[1] "sin, CiSSA CiSSA extended , p-val = 3.86571664691894e-32"
[1] "sin, CiSSA Fourier extended , p-val = 4.37350616684091e-50"
[1] "sin, CiSSA extended CiSSA extended , p-val = NaN"
[1] "sin, CiSSA extended Fourier extended , p-val = 4.6461440598169e-38"
[1] "sin, Fourier extended Fourier extended , p-val = NaN"for (i in 1:6){
for (j in (i):6){
x <- data_prev$all_err[[i]] |> unlist()
y <- data_prev$all_err[[j]] |> unlist()
t_test_result <- t.test(x, y, paired = TRUE)
print(paste("all_err, ", data$Метод[i], " ", data$Метод[j], ", p-val = ", t_test_result$p.value))
}
}[1] "all_err, SSA SSA , p-val = NaN"
[1] "all_err, SSA SSA EOSSA , p-val = 0.217780725368394"
[1] "all_err, SSA Fourier , p-val = 2.297959821497e-29"
[1] "all_err, SSA CiSSA , p-val = 1.79607090075285e-31"
[1] "all_err, SSA CiSSA extended , p-val = 2.17727486455347e-41"
[1] "all_err, SSA Fourier extended , p-val = 1.59940501680576e-65"
[1] "all_err, SSA EOSSA SSA EOSSA , p-val = NaN"
[1] "all_err, SSA EOSSA Fourier , p-val = 2.29795982149755e-29"
[1] "all_err, SSA EOSSA CiSSA , p-val = 1.796070900754e-31"
[1] "all_err, SSA EOSSA CiSSA extended , p-val = 2.17727486455359e-41"
[1] "all_err, SSA EOSSA Fourier extended , p-val = 1.5994050168058e-65"
[1] "all_err, Fourier Fourier , p-val = NaN"
[1] "all_err, Fourier CiSSA , p-val = 5.10461358074915e-16"
[1] "all_err, Fourier CiSSA extended , p-val = 3.96748674539869e-50"
[1] "all_err, Fourier Fourier extended , p-val = 6.13502561191831e-70"
[1] "all_err, CiSSA CiSSA , p-val = NaN"
[1] "all_err, CiSSA CiSSA extended , p-val = 8.73138603765015e-48"
[1] "all_err, CiSSA Fourier extended , p-val = 5.59699676025336e-69"
[1] "all_err, CiSSA extended CiSSA extended , p-val = NaN"
[1] "all_err, CiSSA extended Fourier extended , p-val = 1.1567123543996e-69"
[1] "all_err, Fourier extended Fourier extended , p-val = NaN"table_latex <- xtable(data, caption = "Example Table")
# Шаг 4: Вывод таблицы в LaTeX файл
print(table_latex, include.rownames = FALSE)% latex table generated in R 4.2.2 by xtable 1.8-4 package
% Sun Feb 16 18:19:46 2025
\begin{table}[ht]
\centering
\begin{tabular}{llll}
\hline
Метод & sin\_err & cos\_err & all\_err \\
\hline
SSA & 2.9e-04 & 3.1e-04 & 5.9e-04 \\
SSA EOSSA & 2.9e-04 & 3.1e-04 & 5.9e-04 \\
Fourier & 1.0e-04 & 1.1e-04 & 2.2e-04 \\
CiSSA & 1.6e-04 & 1.8e-04 & 3.4e-04 \\
CiSSA extended & 6.6e-04 & 1.9e-03 & 2.5e-03 \\
Fourier extended & 1.2e-03 & 3.9e-03 & 5.1e-03 \\
\hline
\end{tabular}
\caption{Example Table}
\end{table}# mean(data_prev$sin_err[[2]] |> unlist()) |> print()
# mean(data_prev$sin_err[[1]] |> unlist()) |> print()Добавим непериодичность
n <- 96*2
x <- 0:(n-1)
L <- 96
y1 <- sin(2*pi/12 * x)
y2 <- cos(2*pi/3 * x)/2
y3 <- exp(x/100) + 1
y <- y1 + y2 + y3
eps <- 1/(n+1)
s_ssa <- ssa(y[1:(n-1)], L)
r_ssa <- reconstruct(s_ssa, groups=list(
e = c(1),
sesonal_sin = c(2, 3),
sesonal_cos = c(4, 5)
))
# plot(x[1:(n-1)], r_ssa$e, type = "l")
# plot(x[1:(n-1)], r_ssa$sesonal_sin, type = "l")
# plot(x[1:(n-1)], r_ssa$sesonal_cos, type = "l")
# plot(wcor(s_ssa, groups = 1:10), scales = list(at = c(10, 20, 30)))
e_ssa <- eossa_new(s_ssa, nested.groups = list(1:7), clust_type = "distance")
g_sesonal_e <- grouping.auto(e_ssa, base = "eigen",
freq.bins = list(
e = c(0, 1/12-eps-eps),
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
),
threshold = 0.5)
r_ssa_e <- reconstruct(e_ssa, groups=g_sesonal_e)
# plot(x, r_ssa_e$sesonal_sin)
# plot(x, r_ssa_e$sesonal_cos)
r_fft <- reconstruct_fft(x, y)
r_fft_grouped <- grouping_cissa(r_fft,
groups = list(
e = c(0, 1/12-eps-eps),
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
r_fft_extended <- reconstruct_fft(x, y, TRUE)
r_fft_grouped_extended <- grouping_cissa(r_fft_extended,
groups = list(
e = c(0, 1/12-eps-eps),
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
# r_fft_grouped$sesonal_sin |> length()
# plot(x, r_fft_grouped$sesonal_sin)
# plot(x, r_fft_grouped$sesonal_cos)
# plot(x, r_fft_grouped$residuals)
r_cissa <- circulant_SSA(y, L)
r_cissa_grouped <- grouping_cissa(r_cissa,
groups = list(
e = c(0, 1/12-eps-eps),
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
r_cissa_ext <- circulant_SSA(y, L, extend_flag = TRUE)
r_cissa_grouped_ext <- grouping_cissa(r_cissa_ext,
groups = list(
e = c(0, 1/12-eps-eps),
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
# plot(x, r_cissa_grouped$sesonal_sin)
# plot(x, r_cissa_grouped$sesonal_cos)
# plot(x, r_cissa_grouped$residuals)
library(xtable)
# Шаг 2: Создание примера данных
data <- data.frame(
Метод = c("SSA", "SSA EOSSA","Fourier", "CiSSA", "CiSSA extended", "Fourier extended"),
e_err = c(1, 1, 1, 1, 1, 1),
sin_err = c (1, 20, 20, 1, 1, 1),
cos_err = c(1, 1, 1, 1, 1, 1),
all_err = c(1, 1, 1, 1, 1, 1)
)
data$cos_err[1] <- mse(y1[1:(n-1)], r_ssa$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[1] <- mse(y2[1:(n-1)], r_ssa$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$e_err[1] <- mse(y3[1:(n-1)], r_ssa$e) |>
formatC(format = "e", digits = 1)
data$all_err[1] <- mse(y1[1:(n-1)]+ y2[1:(n-1)] + y3[1:(n-1)],
r_ssa$sesonal_sin + r_ssa$sesonal_cos + r_ssa$e) |>
formatC(format = "e", digits = 1)
data$cos_err[2] <- mse(y1[1:(n-1)], r_ssa_e$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[2] <- mse(y2[1:(n-1)], r_ssa_e$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$e_err[2] <- mse(y3[1:(n-1)], r_ssa_e$e) |>
formatC(format = "e", digits = 1)
data$all_err[2] <- mse(y1[1:(n-1)]+ y2[1:(n-1)] + y3[1:(n-1)],
r_ssa_e$sesonal_sin + r_ssa_e$sesonal_cos + r_ssa_e$e
) |>
formatC(format = "e", digits = 1)
data$cos_err[3] <- mse(y1, r_fft_grouped$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[3] <- mse(y2, r_fft_grouped$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$e_err[3] <- mse(y3, r_fft_grouped$e) |>
formatC(format = "e", digits = 1)
data$all_err[3] <- mse(y1 + y2 + y3,
r_fft_grouped$sesonal_sin + r_fft_grouped$sesonal_cos + r_fft_grouped$e) |>
formatC(format = "e", digits = 1)
data$cos_err[4] <- mse(y1, r_cissa_grouped$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[4] <- mse(y2, r_cissa_grouped$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$e_err[4] <- mse(y3, r_cissa_grouped$e) |>
formatC(format = "e", digits = 1)
data$all_err[4] <- mse(y1 + y2 + y3,
r_cissa_grouped$sesonal_sin +
r_cissa_grouped$sesonal_cos +
r_cissa_grouped$e
) |>
formatC(format = "e", digits = 1)
data$cos_err[5] <- mse(y1, r_cissa_grouped_ext$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[5] <- mse(y2, r_cissa_grouped_ext$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$e_err[5] <- mse(y3, r_cissa_grouped_ext$e) |>
formatC(format = "e", digits = 1)
data$all_err[5] <- mse(y1 + y2 + y3,
r_cissa_grouped_ext$sesonal_sin +
r_cissa_grouped_ext$sesonal_cos +
r_cissa_grouped_ext$e
) |>
formatC(format = "e", digits = 1)
data$cos_err[6] <- mse(y1, r_fft_grouped_extended$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[6] <- mse(y2, r_fft_grouped_extended$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$e_err[6] <- mse(y3, r_fft_grouped_extended$e) |>
formatC(format = "e", digits = 1)
data$all_err[6] <- mse(y1 + y2 + y3,
r_fft_grouped_extended$sesonal_sin +
r_fft_grouped_extended$sesonal_cos +
r_fft_grouped_extended$e
) |>
formatC(format = "e", digits = 1)
table_latex <- xtable(data, caption = "Example Table")
# Шаг 4: Вывод таблицы в LaTeX файл
print(table_latex, include.rownames = FALSE)% latex table generated in R 4.2.2 by xtable 1.8-4 package
% Sun Feb 16 18:31:18 2025
\begin{table}[ht]
\centering
\begin{tabular}{lllll}
\hline
Метод & e\_err & sin\_err & cos\_err & all\_err \\
\hline
SSA & 5.0e-03 & 8.9e-07 & 5.2e-05 & 4.4e-03 \\
SSA EOSSA & 1.7e-28 & 1.6e-29 & 8.7e-30 & 1.6e-28 \\
Fourier & 1.1e-01 & 6.1e-04 & 6.8e-03 & 1.1e-01 \\
CiSSA & 5.3e-02 & 1.6e-05 & 4.9e-04 & 4.4e-02 \\
CiSSA extended & 5.0e-04 & 2.1e-04 & 1.1e-03 & 6.0e-04 \\
Fourier extended & 1.4e-03 & 1.3e-03 & 8.4e-03 & 9.6e-03 \\
\hline
\end{tabular}
\caption{Example Table}
\end{table}Непериодичность с шумом
# data <- data.frame(
# Метод = c("Fourier", "CiSSA", "CiSSA с расширением ряда"),
# sin_err = c (20, 20, 20),
# cos_err = c(1, 1, 20),
# exp_err = c(1, 1, 20)
# )
data <- list(
Метод = c("SSA", "SSA EOSSA","Fourier", "CiSSA", "CiSSA extended", "Fourier extended"),
sin_err = list(list(), list(), list(), list(), list(), list()),
cos_err = list(list(), list(), list(), list(), list(), list()),
exp_err = list(list(), list(), list(), list(), list(), list()),
all_err = list(list(), list(), list(), list(), list(), list())
)
for (i in 1:100){
set.seed(i)
n <- 96*2
x <- 0:(n-1)
L <- 96
y1 <- sin(2*pi/12 * x)
y2 <- cos(2*pi/3 * x)/2
y3 <- exp(x/100) + 1
y <- y1 + y2 + y3 + rnorm(n, 0, 0.1)
eps <- 1/(n+1)
s_ssa <- ssa(y[1:(n-1)], L)
r_ssa <- reconstruct(s_ssa, groups=list(
e = 1,
sesonal_sin = c(2, 3),
sesonal_cos = c(4, 5)
))
e_ssa <- eossa_new(s_ssa, nested.groups = list(1:7), clust_type = "distance")
g_sesonal_e <- grouping.auto(e_ssa, base = "eigen",
freq.bins = list(
e = c(0, 1/12-eps-eps),
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
),
threshold = 0.5)
r_ssa_e <- reconstruct(e_ssa, groups=g_sesonal_e)
r_fft <- reconstruct_fft(x, y)
r_fft_grouped <- grouping_cissa(r_fft,
groups = list(
e = c(0, 1/12-eps-eps),
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
r_fft_extended <- reconstruct_fft(x, y, TRUE)
r_fft_grouped_extended <- grouping_cissa(r_fft_extended,
groups = list(
e = c(0, 1/12-eps-eps),
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
r_cissa <- circulant_SSA(y, L)
r_cissa_grouped <- grouping_cissa(r_cissa,
groups = list(
e = c(0, 1/12-eps-eps),
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
r_cissa_ext <- circulant_SSA(y, L, extend_flag = TRUE)
r_cissa_grouped_ext <- grouping_cissa(r_cissa_ext,
groups = list(
e = c(0, 1/12-eps-eps),
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/3-eps, 1/3+eps)
)
)$t_series
data$cos_err[[1]][[i]] <- mse(y1[1:(n-1)], r_ssa$sesonal_sin)
data$sin_err[[1]][[i]] <- mse(y2[1:(n-1)], r_ssa$sesonal_cos)
data$exp_err[[1]][[i]] <- mse(y3[1:(n-1)], r_ssa$e)
data$all_err[[1]][[i]] <- mse(y1[1:(n-1)] + y2[1:(n-1)] + y3[1:(n-1)],
r_ssa$sesonal_sin+
r_ssa$sesonal_cos +
r_ssa$e
)
data$cos_err[[2]][[i]] <- mse(y1[1:(n-1)], r_ssa_e$sesonal_sin)
data$sin_err[[2]][[i]] <- mse(y2[1:(n-1)], r_ssa_e$sesonal_cos)
data$exp_err[[2]][[i]] <- mse(y3[1:(n-1)], r_ssa_e$e)
data$all_err[[2]][[i]] <- mse(y1[1:(n-1)] + y2[1:(n-1)] + y3[1:(n-1)],
r_ssa_e$sesonal_sin+
r_ssa_e$sesonal_cos +
r_ssa_e$e
)
# print(data$sin_err[[2]][[i]])
data$cos_err[[3]][[i]] <- mse(y1, r_fft_grouped$sesonal_sin)
data$sin_err[[3]][[i]] <- mse(y2, r_fft_grouped$sesonal_cos)
data$exp_err[[3]][[i]] <- mse(y3, r_fft_grouped$e)
data$all_err[[3]][[i]] <- mse(y1 + y2 + y3,
r_fft_grouped$sesonal_sin +
r_fft_grouped$sesonal_cos +
r_fft_grouped$e
)
data$cos_err[[4]][[i]] <- mse(y1, r_cissa_grouped$sesonal_sin)
data$sin_err[[4]][[i]] <- mse(y2, r_cissa_grouped$sesonal_cos)
data$exp_err[[4]][[i]] <- mse(y3, r_cissa_grouped$e)
data$all_err[[4]][[i]] <- mse(y1 + y2 + y3,
r_cissa_grouped$sesonal_sin +
r_cissa_grouped$sesonal_cos +
r_cissa_grouped$e
)
data$cos_err[[5]][[i]] <- mse(y1, r_cissa_grouped_ext$sesonal_sin)
data$sin_err[[5]][[i]] <- mse(y2, r_cissa_grouped_ext$sesonal_cos)
data$exp_err[[5]][[i]] <- mse(y3, r_cissa_grouped_ext$e)
data$all_err[[5]][[i]] <- mse(y1 + y2 + y3,
r_cissa_grouped_ext$sesonal_sin +
r_cissa_grouped_ext$sesonal_cos +
r_cissa_grouped_ext$e
)
data$cos_err[[6]][[i]] <- mse(y1, r_fft_grouped_extended$sesonal_sin)
data$sin_err[[6]][[i]] <- mse(y2, r_fft_grouped_extended$sesonal_cos)
data$exp_err[[6]][[i]] <- mse(y3, r_fft_grouped_extended$e)
data$all_err[[6]][[i]] <- mse(y1 + y2 + y3,
r_fft_grouped_extended$sesonal_sin +
r_fft_grouped_extended$sesonal_cos +
r_fft_grouped_extended$e
)
}
library(xtable)
# data$sin_err[[2]]
# Шаг 2: Создание примера данных
data_prev <- data
data <- data.frame(
Метод = c("SSA", "SSA EOSSA","Fourier", "CiSSA", "CiSSA extended", "Fourier extended"),
exp_err = c(0, 0, 0, 0, 0, 0),
sin_err = c(0, 0, 0, 0, 0, 0),
cos_err = c(0, 0, 0, 0, 0, 0),
all_err = c(0, 0, 0, 0, 0, 0)
)
data$cos_err[1] <- mean(data_prev$cos_err[[1]] |> unlist()) |>
formatC(format = "e", digits = 1)
data$sin_err[1] <- mean(data_prev$sin_err[[1]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$exp_err[1] <- mean(data_prev$exp_err[[1]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$all_err[1] <- mean(data_prev$all_err[[1]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$cos_err[2] <- mean(data_prev$cos_err[[2]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$sin_err[2] <- mean(data_prev$sin_err[[2]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$exp_err[2] <- mean(data_prev$exp_err[[2]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$all_err[2] <- mean(data_prev$all_err[[2]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$cos_err[3] <- mean(data_prev$cos_err[[3]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$sin_err[3] <- mean(data_prev$sin_err[[3]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$exp_err[3] <- mean(data_prev$exp_err[[3]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$all_err[3] <- mean(data_prev$all_err[[3]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$cos_err[4] <- mean(data_prev$cos_err[[4]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$sin_err[4] <- mean(data_prev$sin_err[[4]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$exp_err[4] <- mean(data_prev$exp_err[[4]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$all_err[4] <- mean(data_prev$all_err[[4]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$cos_err[5] <- mean(data_prev$cos_err[[5]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$sin_err[5] <- mean(data_prev$sin_err[[5]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$exp_err[5] <- mean(data_prev$exp_err[[5]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$all_err[5] <- mean(data_prev$all_err[[5]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$cos_err[6] <- mean(data_prev$cos_err[[6]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$sin_err[6] <- mean(data_prev$sin_err[[6]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$exp_err[6] <- mean(data_prev$exp_err[[6]]|> unlist()) |>
formatC(format = "e", digits = 1)
data$all_err[6] <- mean(data_prev$all_err[[6]]|> unlist()) |>
formatC(format = "e", digits = 1)
for (i in 1:6){
for (j in (i):6){
x <- data_prev$cos_err[[i]] |> unlist()
y <- data_prev$cos_err[[j]] |> unlist()
t_test_result <- t.test(x, y, paired = TRUE)
if (!is.na(t_test_result$p.value) & t_test_result$p.value > 0.05){
print(paste("cos, ", data$Метод[i], " ",
data$Метод[j], ", p-val = ", t_test_result$p.value))
}
}
}
for (i in 1:6){
for (j in (i):6){
x <- data_prev$sin_err[[i]] |> unlist()
y <- data_prev$sin_err[[j]] |> unlist()
t_test_result <- t.test(x, y, paired = TRUE)
if (!is.na(t_test_result$p.value) & t_test_result$p.value > 0.05){
print(paste("sin, ", data$Метод[i], " ", data$Метод[j], ", p-val = ", t_test_result$p.value))
}
}
}[1] "sin, SSA SSA EOSSA , p-val = 0.171160848885882"
[1] "sin, Fourier CiSSA extended , p-val = 0.82766511101901"for (i in 1:6){
for (j in (i):6){
x <- data_prev$exp_err[[i]] |> unlist()
y <- data_prev$exp_err[[j]] |> unlist()
t_test_result <- t.test(x, y, paired = TRUE)
if (!is.na(t_test_result$p.value) & t_test_result$p.value > 0.05){
print(paste("exp, ", data$Метод[i], " ", data$Метод[j], ", p-val = ", t_test_result$p.value))}
}
}
for (i in 1:6){
for (j in (i):6){
x <- data_prev$all_err[[i]] |> unlist()
y <- data_prev$all_err[[j]] |> unlist()
t_test_result <- t.test(x, y, paired = TRUE)
if (!is.na(t_test_result$p.value) & t_test_result$p.value > 0.05){
print(paste("all_err, ", data$Метод[i], " ", data$Метод[j], ", p-val = ", t_test_result$p.value))
}
}
}
table_latex <- xtable(data, caption = "Example Table")
# Шаг 4: Вывод таблицы в LaTeX файл
print(table_latex, include.rownames = FALSE)% latex table generated in R 4.2.2 by xtable 1.8-4 package
% Sun Feb 16 18:50:41 2025
\begin{table}[ht]
\centering
\begin{tabular}{lllll}
\hline
Метод & exp\_err & sin\_err & cos\_err & all\_err \\
\hline
SSA & 5.2e-03 & 2.9e-04 & 3.6e-04 & 5.2e-03 \\
SSA EOSSA & 9.5e-04 & 2.9e-04 & 3.1e-04 & 1.5e-03 \\
Fourier & 1.2e-01 & 6.9e-04 & 7.2e-03 & 1.1e-01 \\
CiSSA & 5.5e-02 & 1.7e-04 & 7.0e-04 & 4.6e-02 \\
CiSSA extended & 2.7e-03 & 6.8e-04 & 2.1e-03 & 3.1e-03 \\
Fourier extended & 3.0e-03 & 1.9e-03 & 9.6e-03 & 1.2e-02 \\
\hline
\end{tabular}
\caption{Example Table}
\end{table}Пример, который не подходит ни к какому методу
n <- 96*2 + 7
L <- 89
x <- 0:(n-1)
y1 <- sin(2*pi/13 * x)
y2 <- cos(2*pi/8 * x)
y3 <- -x*x/1000
y4 <- exp(x/55)
y <- y1 + y2 + y3 + y4
plot(x, y)
X <- hankel(y, L = L)
eps <- 1/(n+1)
s_ssa <- ssa(y, L)
# r_ssa <- reconstruct(s_ssa, groups=list(
# sesonal_sin = c(1, 2),
# sesonal_cos = c(3, 4)
# ))
# plot(x, r_ssa$sesonal_sin)
# plot(x, r_ssa$sesonal_cos)
# plot(wcor(s_ssa, groups = 1:10), scales = list(at = c(10, 20, 30)))
e_ssa <- eossa_new(s_ssa, nested.groups = list(1:10), clust_type = "distance")
g_sesonal_e <- grouping.auto(e_ssa, base = "eigen",
freq.bins = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/8-eps, 1/8+eps)
),
threshold = 0.5)
r_ssa_e <- reconstruct(e_ssa, groups=g_sesonal_e)
# plot(x, r_ssa_e$sesonal_sin)
# plot(x, r_ssa_e$sesonal_cos)
r_fft <- reconstruct_fft(x, y)
r_fft_grouped <- grouping_cissa(r_fft,
groups = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/8-eps, 1/8+eps)
)
)$t_series
# r_fft_grouped$sesonal_sin |> length()
# plot(x, r_fft_grouped$sesonal_sin)
# plot(x, r_fft_grouped$sesonal_cos)
# plot(x, r_fft_grouped$residuals)
r_cissa <- circulant_SSA(y, L)
r_cissa_grouped <- grouping_cissa(r_cissa,
groups = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/8-eps, 1/8+eps)
)
)$t_series
r_cissa_ext <- circulant_SSA(y, L, extend_flag = TRUE)
r_cissa_grouped_ext <- grouping_cissa(r_cissa_ext,
groups = list(
sesonal_sin = c(1/12-eps, 1/12+eps),
sesonal_cos = c(1/8-eps, 1/8+eps)
)
)$t_series
# plot(x, r_cissa_grouped$sesonal_sin)
# plot(x, r_cissa_grouped$sesonal_cos)
# plot(x, r_cissa_grouped$residuals)
library(xtable)
# Шаг 2: Создание примера данных
data <- data.frame(
Метод = c("SSA EOSSA","Fourier", "CiSSA", "CiSSA extended"),
sin_err = c (20, 20, 1, 1),
cos_err = c(1, 1, 1, 1)
)
data$cos_err[1] <- mse(y1, r_ssa_e$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[1] <- mse(y2, r_ssa_e$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$cos_err[2] <- mse(y1, r_fft_grouped$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[2] <- mse(y2, r_fft_grouped$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$cos_err[3] <- mse(y1, r_cissa_grouped$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[3] <- mse(y2, r_cissa_grouped$sesonal_cos) |>
formatC(format = "e", digits = 1)
data$cos_err[4] <- mse(y1, r_cissa_grouped_ext$sesonal_sin) |>
formatC(format = "e", digits = 1)
data$sin_err[4] <- mse(y2, r_cissa_grouped_ext$sesonal_cos) |>
formatC(format = "e", digits = 1)
table_latex <- xtable(data, caption = "Example Table")
# Шаг 4: Вывод таблицы в LaTeX файл
print(table_latex, include.rownames = FALSE)% latex table generated in R 4.2.2 by xtable 1.8-4 package
% Sat Feb 15 11:13:55 2025
\begin{table}[ht]
\centering
\begin{tabular}{lll}
\hline
Метод & sin\_err & cos\_err \\
\hline
SSA EOSSA & 2.1e-21 & 7.4e-22 \\
Fourier & 1.6e-02 & 4.2e-01 \\
CiSSA & 2.2e-02 & 3.7e-02 \\
CiSSA extended & 2.9e-03 & 4.5e-03 \\
\hline
\end{tabular}
\caption{Example Table}
\end{table}LS0tDQp0aXRsZTogIkNpcmN1bGFudCBTU0EiDQphdXRob3I6ICLQn9C+0LPRgNC10LHQvdC40LrQvtCyINCd0LjQutC+0LvQsNC5Ig0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KYGBge3J9DQpMIDwtIDgxDQp4IDwtIDE6TA0KeSA8LSBzaW4ocGkqeC8oTCsxKSleMiB8PiBzcXJ0KCkgDQoNCnBsb3QoeCwgeSkNCjcwMCAqMi8zDQpgYGANCg0KIyMg0JLRgdC/0L7QvNC+0LPQsNGC0LXQu9GM0L3Ri9C1INGE0YPQvdC60YbQuNC4DQoNCmBgYHtyfQ0KbGlicmFyeShSc3NhKQ0KbGlicmFyeShzaWduYWwpDQpsaWJyYXJ5KGdzaWduYWwpDQpzb3VyY2UoImVvc3NhX25ldy5SIikNCg0KDQpkZnRtdHggPC0gZnVuY3Rpb24obikgew0KICB5IDwtIHN0YXRzOjptdmZmdChkaWFnKDEsIG4pKQ0KICB5DQp9DQoNCmRpYWdfYXZlcmFnaW5nIDwtIGZ1bmN0aW9uKEEpew0KICBCIDwtIEFbbnJvdyhBKToxLCBdIHw+IFJlKCkNCiAgbGFwcGx5KHNwbGl0KEIsIC0ocm93KEIpIC0gY29sKEIpKSApLCBtZWFuKSB8PiBhcy5udW1lcmljKCkNCn0NCg0Kc2hpZnRfdmVjdG9yIDwtIGZ1bmN0aW9uKHZlYykgew0KICBsYXN0X2VsZW1lbnQgPC0gdGFpbCh2ZWMsIDEpDQogIHZlYyA8LSB2ZWNbLWxlbmd0aCh2ZWMpXQ0KICBzaGlmdGVkX3ZlYyA8LSBjKGxhc3RfZWxlbWVudCwgdmVjKQ0KICByZXR1cm4oc2hpZnRlZF92ZWMpDQp9DQoNCmV4dGVuZCA8LSBmdW5jdGlvbih4LCBIKXsNCiAgIyDQktGL0YfQuNGB0LvQtdC90LjQtSDQutC+0Y3RhNGE0LjRhtC40LXQvdGC0L7QsiBBUiDQvNC+0LTQtdC70Lgg0LTQu9GPINC00LjRhNGE0LXRgNC10L3RhtC40YDQvtCy0LDQvdC90L7Qs9C+INGA0Y/QtNCwDQogIE4gPC0gbGVuZ3RoKHgpDQogIHAgPC0gZmxvb3IoTiAvIDMpDQogIGR4IDwtIGRpZmYoeCkNCiAgIyBBIDwtIGFyKGR4LCBvcmRlci5tYXggPSBwLCBtZXRob2QgPSAieXVsZS13YWxrZXIiKSRhcg0KICBBIDwtIGFyeXVsZShkeCwgcCkkYQ0KICANCiAgIyDQn9GA0LDQstC+0LUg0YDQsNGB0YjQuNGA0LXQvdC40LUNCiAgeSA8LSB4DQogIGR5IDwtIGRpZmYoeSkNCiAgZXIgPC0gc2lnbmFsOjpmaWx0ZXIoQSwgMSwgZHkpDQogIGR5IDwtIHNpZ25hbDo6ZmlsdGVyKDEsIEEsIGMoZXIsIHJlcCgwLCBIKSkpDQogIHkgPC0geVsxXSArIGMoMCwgY3Vtc3VtKGR5KSkNCiAgDQogICMg0JvQtdCy0L7QtSDRgNCw0YHRiNC40YDQtdC90LjQtQ0KICB5IDwtIHJldih5KQ0KICBkeSA8LSBkaWZmKHkpDQogIGVyIDwtIHNpZ25hbDo6ZmlsdGVyKEEsMSxkeSkNCiAgZHkgPC0gc2lnbmFsOjpmaWx0ZXIoMSxBLGMoZXIsIHJlcCgwLCBIKSkpDQogIHkgPC0geVsxXSArIGMoMCwgY3Vtc3VtKGR5KSkNCiAgDQogICMg0KDQsNGB0YjQuNGA0LXQvdC90YvQuSDRgNGP0LQNCiAgeGUgPC0gcmV2KHkpDQogIA0KICAjINCS0YvQstC+0LQg0YDQtdC30YPQu9GM0YLQsNGC0L7Qsg0KICB4ZSANCn0NCmBgYA0KDQojIyBDaVNTQQ0KDQrQn9C+0LTQsNGR0YLRgdGPINC90LAg0LLRhdC+0LQg0LLRgNC10LzQtdC90L3QvtC5INGA0Y/QtCwg0LTQu9C40L3QsCDQvtC60L3QsCAo0LXRgdC70Lgg0LXRkSDQvdC10YIsINGC0L4g0L7QvdCwINGA0LDQstC90LAg0LTQu9C40L3QtSDRgNGP0LTQsCArIDEg0L/QvtC/0L7Qu9Cw0LwpINC4INC40L3RhNC+0YDQvNCw0YbQuNGPINC+INGC0L7QvCwg0L3Rg9C20L3QviDQu9C4INGA0LDRgdGI0LjRgNC40YLRjCDRgNGP0LQuINCg0LDRgdGI0LjRgNGP0YLRjCDRgNGP0LQg0YHRgtC+0LjRgiDQv9GA0Lgg0YHRgtC+0YXQsNGB0YLQuNGH0LXRgdC60L7QvCDRgtGA0LXQvdC00LUgKEF1dG9yZWdyZXNzaXZlIGV4dGVuc2lvbiAoZGVmYXVsdCkuIEl0IGlzIGluZGljYXRlZCBmb3Igc3RhdGlvbmFyeSBhbmQgc3RvY2hhc3RpYyB0cmVuZCB0aW1lIHNlcmllcyBhcyB3ZWxsKS4g0KDQtdCw0LvQuNC30L7QstCw0L3QviDRgtC+0LvRjNC60L4gQXV0b3JlZ3Jlc3NpdmUgZXh0ZW5zaW9uLg0KDQpcDQrQndCwINCy0YvRhdC+0LTQtSDRgdC/0LjRgdC+0Log0LLRi9C00LDRkdGC0YHRjyDRgdC/0LjRgdC+0LogbGlzdCh0X3NlcmllcywgaW1wb3J0YW5jZSkuXA0KdF9zZXJpZXMg4oCUINC80LDRgtGA0LjRhtCwLCDQv9C+INGB0YLQvtC70LHRhtCw0Lwg0LrQvtGC0L7RgNC+0Lkg0YDQsNGB0L/QvtC70LDQs9Cw0Y7RgtGB0Y8g0LLRgNC10LzQtdC90L3Ri9C1INGA0Y/QtNGLLCDQvtGC0LLQtdGH0LDRjtGJ0LjQtSDQt9CwINGH0LDRgdGC0L7RgtGLIChpLTEpL0wsINCz0LTQtSBpIOKAlCDQvdC+0LzQtdGAINGB0YLQvtC70LHRhtCwLCBMIOKAlCDQtNC70LjQvdCwINC+0LrQvdCwLlwNCmltcG9ydGFuY2Ug4oCUINCy0LXQutGC0L7RgCwg0L7RgtCy0LXRh9Cw0Y7RidC40Lkg0LfQsCDQt9C90LDRh9C40LzQvtGB0YLRjCBpLdC+0LPQviDQstGA0LXQvNC10L3QvdC+0LPQviDRgNGP0LTQsCDQsiDRgNCw0LfQu9C+0LvQttC10L3QuNC4LiDQp9C10Lwg0LHQvtC70YzRiNC1INC30L3QsNGH0LXQvdC40LUsINGC0LXQvCDQsdC+0LvRjNGI0LjQuSDQstC60LvQsNC0INCy0L3RkdGBIGkt0YLRi9C5INCy0YDQtdC80LXQvdC90L7QuSDRgNGP0LQuDQoNCmBgYHtyfQ0KY2lyY3VsYW50X1NTQSA8LSBmdW5jdGlvbih0cywgTCA9IE5VTEwsIGV4dGVuZF9mbGFnID0gRkFMU0Upew0KICB0aW1lX3NlcmllcyA8LSB0cw0KICAjIENvbnN0cnVjdCB0cmFqZWN0b3J5IG1hdHJpeA0KICBOIDwtIGxlbmd0aCh0aW1lX3NlcmllcykNCiAgaWYgKGlzLm51bGwoTCkpew0KICAgIEwgPC0gKE4gKyAxKSUvJTINCiAgfQ0KICAjINCf0YDQvtCy0LXRgNC60LAg0L3QsCDRgNCw0YHRiNC40YDQtdC90LjRjyDRgNGP0LTQsA0KICBpZiAoZXh0ZW5kX2ZsYWcgPT0gRkFMU0Upew0KICAgIEggPC0gMA0KICAgIHRpbWVfc2VyaWVzIDwtIHRzDQogIH0NCiAgZWxzZXsNCiAgICBIIDwtIEwNCiAgICB0aW1lX3NlcmllcyA8LSBleHRlbmQodHMsIEgpDQogIH0NCiAgDQogIFggPC0gaGFua2VsKHRpbWVfc2VyaWVzLCBMKQ0KICANCiAgIyBOdW1iZXIgb2Ygc3ltbWV0cmljIGZyZXF1ZW5jeSBwYWlycyBhcm91bmQgMS8yDQogIGlmIChMICUlIDIpIHsNCiAgICBuZjIgPC0gKEwgKyAxKSAvIDIgLSAxDQogIH0gZWxzZSB7DQogICAgbmYyIDwtIEwgLyAyIC0gMQ0KICB9DQogIA0KICAjIE51bWJlciBvZiBmcmVxdWVuY2llcyA8PSAxLzINCiAgbmZ0IDwtIG5mMiArIGFicygoTCAlJSAyKSAtIDIpDQogIA0KICAjIERlY29tcG9zaXRpb24NCiAgIyBFc3RpbWF0ZSBhdXRvY292YXJpYW5jZSAgICAgT0sNCiAgYXV0b2NvdiA8LSBudW1lcmljKEwpDQogIGZvciAobSBpbiAwOihMLTEpKXsNCiAgICBhdXRvY292W1ttKzFdXSA8LSBzdW0odGltZV9zZXJpZXNbMTooTi1tKV0gKiB0aW1lX3Nlcmllc1soMSttKTpOXSkgLyAoTi1tKQ0KICB9DQogIA0KICAjIEZpcnN0IHJvdyBvZiBjaXJjdWxhbnQgbWF0cml4DQogIGNpcmNfZmlyc3Rfcm93IDwtIG51bWVyaWMoTCkNCiAgZm9yIChtIGluIDA6KEwtMSkpew0KICAgIGNpcmNfZmlyc3Rfcm93W1ttKzFdXSA8LSAoTC1tKS9MICogYXV0b2NvdltbbSsxXV0gKyAobSkvTCAqIGF1dG9jb3ZbW0wtbV1dDQogIH0NCiAgDQogICMgQnVpbGQgY2lyY3VsYW50IG1hdHJpeA0KICBTX0MgPC0gbWF0cml4KGNpcmNfZmlyc3Rfcm93LCBucm93ID0gMSkNCiAgc2hpZnRlZF92ZWN0b3IgPC0gY2lyY19maXJzdF9yb3cNCiAgZm9yIChpIGluIDI6KEwpKSB7DQogICAgc2hpZnRlZF92ZWN0b3IgPC0gc2hpZnRfdmVjdG9yKHNoaWZ0ZWRfdmVjdG9yKQ0KICAgICMgU19DIDwtIHJiaW5kKFNfQywgYXMudmVjdG9yKHNoaWZ0ZWRfdmVjdG9yKSkNCiAgICBTX0MgPC0gcmJpbmQoYXMudmVjdG9yKHNoaWZ0ZWRfdmVjdG9yKSwgU19DKQ0KICB9DQogIA0KICAjIEVpZ2VudmVjdG9ycyBvZiBjaXJjdWxhbnQgbWF0cml4ICh1bml0YXJ5IGJhc2UpDQogIFUgPC0gZGZ0bXR4KEwpL3NxcnQoTCkNCiAgDQogICMgUmVhbCBlaWdlbnZlY3RvcnMgKG9ydGhvbm9ybWFsIGJhc2UpDQogIFVbLCAxXSA8LSBSZShVWywgMV0pDQogIGZvciAoayBpbiAxOm5mMikgew0KICAgIHVfayA8LSBVWywgayArIDFdDQogICAgVVssIGsgKyAxXSA8LSBzcXJ0KDIpICogUmUodV9rKQ0KICAgIFVbLCBMICsgMiAtIChrICsgMSldIDwtIHNxcnQoMikgKiBJbSh1X2spDQogIH0NCiAgaWYgKEwgJSUgMiAhPSAwKSB7DQogICAgVVssIG5mdF0gPC0gUmUoVVssIG5mdF0pDQogIH0NCiAgDQogICMgRWlnZW52YWx1ZXMgb2YgY2lyY3VsYW50IG1hdHJpeDogZXN0aW1hdGVkIHBvd2VyIHNwZWN0cmFsIGRlbnNpdHkNCiAgcHNkIDwtIGFicyhkaWFnKHQoVSkgJSolIFNfQyAlKiUgVSkpDQogIA0KICAjIFByaW5jaXBhbCBjb21wb25lbnRzDQogIFcgPC0gdChVKSAlKiUgWA0KICAjIFJlY29uc3RydWN0aW9uDQogICMgRWxlbWVudGFyeSByZWNvbnN0cnVjdGVkIHNlcmllcw0KICBSIDwtIG1hdHJpeCgwLCBucm93ID0gTisyKkgsIG5jb2wgPSBMKQ0KICBmb3IgKGsgaW4gMTpMKSB7DQogICAgUlssIGtdIDwtIFVbICxrXSAlKiUgdChXW2ssIF0pIHw+IGRpYWdfYXZlcmFnaW5nKCkNCiAgfQ0KICANCiAgIyBHcm91cGluZyBieSBmcmVxdWVuY3kNCiAgIyBFbGVtZW50YXJ5IHJlY29uc3RydWN0ZWQgc2VyaWVzIGJ5IGZyZXF1ZW5jeQ0KICBaIDwtIG1hdHJpeCgwLCBucm93ID0gTisyKkgsIG5jb2wgPSBuZnQpDQogIFpbLCAxXSA8LSBSWywgMV0NCiAgIyBJbXBvcnRhbmNlIG9mIGNvbXBvbmVudA0KICBpbXAgPC0gbnVtZXJpYyhuZnQpDQogIGxhbWJkYV9zbSA8LSBzdW0ocHNkKQ0KICBpbXBbMV0gPC0gcHNkWzFdL2xhbWJkYV9zbQ0KICBmb3IgKGsgaW4gMTpuZjIpIHsNCiAgICBaWywgayArIDFdIDwtIFJbLCBrICsgMV0gKyBSWywgTCArIDIgLSAoayArIDEpXQ0KICAgIGltcFtrKzFdIDwtIChwc2RbaysxXSArIHBzZFsgTCArIDIgLSAoayArIDEpXSkvbGFtYmRhX3NtDQogIH0NCiAgaWYgKEwgJSUgMiAhPSAwKSB7DQogICAgWlssIG5mdF0gPC0gUlssIG5mdF0NCiAgICBpbXBbbmZ0XSA8LSBwc2RbbmZ0XSAvIGxhbWJkYV9zbQ0KICB9DQogIA0KICBsaXN0KHRfc2VyaWVzID0gWlsoSCsxKTooTitIKSxdLA0KICAgICAgIGltcG9ydGFuY2UgPSBpbXAsDQogICAgICAgZnJlcSA9ICgwOihsZW5ndGgoaW1wKSAtMSkpL0wNCiAgICAgICApDQp9DQpgYGANCg0KYGBge3J9DQojIGdyb3VwcyAtIGxpc3Qgb2YgZnJlcXVlbmNpZXMNCmdyb3VwaW5nX2Npc3NhIDwtIGZ1bmN0aW9uKGNpc3NhX3JlcywgZ3JvdXBzKXsNCiAgZnJlcSA8LSBjaXNzYV9yZXMkZnJlcQ0KICB0X3NlcmllcyA8LSBjaXNzYV9yZXMkdF9zZXJpZXMNCiAgDQogIA0KICByZXNpZHVhbHMgPC0gMA0KICByZXN1bHQgPC0gc2V0TmFtZXMoYXMubGlzdChyZXAoMCwgbGVuZ3RoKGdyb3VwcykpKSwgbmFtZXMoZ3JvdXBzKSkNCiAgcmVzdWx0X2ZyZXFzIDwtIGxpc3QoKQ0KICBmb3IgKGkgaW4gMTpsZW5ndGgoY2lzc2FfcmVzJGZyZXEpKXsNCiAgICBmbGFnIDwtIEZBTFNFDQogICAgZm9yIChuYW1lIGluIG5hbWVzKGdyb3Vwcykpew0KICAgICAgaWYgKGdyb3Vwc1tbbmFtZV1dWzFdIDw9IGZyZXFbaV0gJiBmcmVxW2ldIDw9IGdyb3Vwc1tbbmFtZV1dWzJdKXsNCiAgICAgICAgZmxhZyA8LSBUUlVFDQogICAgICAgIHJlc3VsdFtbbmFtZV1dIDwtIHJlc3VsdFtbbmFtZV1dICsgdF9zZXJpZXNbLCBpXQ0KICAgICAgICByZXN1bHRfZnJlcXNbW25hbWVdXSA8LSBjKHJlc3VsdF9mcmVxc1tbbmFtZV1dLCBmcmVxW2ldKQ0KICAgICAgfQ0KICAgIH0NCiAgICANCiAgICBpZiAoZmxhZyA9PSBGQUxTRSl7DQogICAgICByZXNpZHVhbHMgPC0gcmVzaWR1YWxzICsgdF9zZXJpZXNbLCBpXQ0KICAgIH0NCiAgfQ0KICANCiAgcmVzdWx0W1sicmVzaWR1YWxzIl1dIDwtIHJlc2lkdWFscw0KICANCiAgcmV0dXJuKA0KICAgIGxpc3QoDQogICAgICB0X3NlcmllcyA9IHJlc3VsdCwNCiAgICAgIGZyZXFzX2J5X2dyb3VwID0gcmVzdWx0X2ZyZXFzDQogICAgKQ0KICApDQogIHJlc3VsdA0KfQ0KYGBgDQoNCmBgYHtyfQ0KZ2VuZXJhdGVfdHMgPC0gZnVuY3Rpb24oZnVuYywgbj0xZTMsIC4uLil7DQogIDE6biB8PiBmdW5jKC4uLikgfD4gdHMoKQ0KfQ0KDQpmX2NvcyA8LSBmdW5jdGlvbih4LCBBID0gMSwgb21lZ2EgPSAxLzQsIHBoaSA9IDApew0KICBmX2V4cF9tb2RfaGFybV9zZXJpZXMoeCwgQSwgYWxwaGEgPSAwLCBvbWVnYSA9IG9tZWdhLCBwaGkgPSBwaGkpDQp9DQoNCmZfc2luIDwtIGZ1bmN0aW9uKHgsIEEgPSAxLCBvbWVnYSA9IDEvNCwgcGhpID0gMypwaS8yKXsNCiAgZl9leHBfbW9kX2hhcm1fc2VyaWVzKHgsIEEsIGFscGhhID0gMCwgb21lZ2EgPSBvbWVnYSwgcGhpID0gcGhpKQ0KfQ0KDQpmX2V4cCA8LSBmdW5jdGlvbih4LCBBID0gMSwgYWxwaGEgPSAxKXsNCiAgQSAqIGV4cChhbHBoYSAqIHgpDQp9DQoNCmZfZXhwX2NvcyA8LSBmdW5jdGlvbih4LCBBID0gMSwgYWxwaGEgPSAxLCBvbWVnYSA9IDEvNCwgcGhpID0gMCl7DQogIGZfZXhwX21vZF9oYXJtX3Nlcmllcyh4LCBBLCBhbHBoYSwgb21lZ2EsIHBoaSkNCn0NCg0KZl9jb25zdCA8LSBmdW5jdGlvbih4LCBDID0gMCl7DQogIHJlcChDLCBsZW5ndGgoeCkpDQp9DQoNCmZfZXhwX21vZF9oYXJtX3NlcmllcyA8LSBmdW5jdGlvbih4LCBBID0gMSwgYWxwaGEgPSAxLCBvbWVnYSA9IDEvNCwgcGhpID0gMCl7DQogIEEqZXhwKGFscGhhKngpKmNvcygyKnBpKm9tZWdhKnggKyBwaGkpDQp9DQoNCmZfbGluZWFyIDwtIGZ1bmN0aW9uKHgsIGEgPSAxLCBiID0gMCl7DQogIGEqeCArIGINCn0NCm1zZSA8LSBmdW5jdGlvbihmX3RydWUsIGZfcmVjb25zdHJ1Y3RlZCl7DQogICBtZWFuKChmX3RydWUgLSBmX3JlY29uc3RydWN0ZWQpXjIpIA0KfQ0KYGBgDQoNCiMjIyMg0J7RiNC40LHQutCwINC/0YDQuCBMdyBpbiBOLCBLdyBub3QgaW4gTg0KDQpgYGB7cn0NCm4gPC0gOTYqMis1DQpMIDwtIDk2DQplcHMgPC0gMS85Nw0KZl9zdW0gPC0gZnVuY3Rpb24oeCl7DQogIGZfY29uc3QoeCwgQyA9IDEpICsgZl9jb3MoeCwgb21lZ2EgPSAxLzEyKSANCn0NCg0KDQpmX2NvbnN0IHw+IGdlbmVyYXRlX3RzKG4sIEMgPSAxKSB8Pg0KICBwbG90KGNvbCA9ICJncmVlbiIsIHlsaW0gPSBjKC0xLCAyKSwgeWxhYiA9ICJmX24iKQ0KZl9jb3MgfD4NCiAgZ2VuZXJhdGVfdHMobiwgb21lZ2EgPSAxLzEyKSB8Pg0KICBsaW5lcyhjb2w9ImdyZWVuIikNCmZfc3VtIHw+IGdlbmVyYXRlX3RzKG4pIHw+IGxpbmVzKGx3ZCA9IDMsIGNvbD0ncmVkJykNCmZfbiA8LSBmX3N1bSgxOm4pDQoNCg0KDQpjIDwtIGNpcmN1bGFudF9TU0EoZl9uLCBMID0gOTYsIGV4dGVuZF9mbGFnID0gRkFMU0UpDQpyIDwtIGdyb3VwaW5nX2Npc3NhKGMsDQogICAgICAgICAgICAgICBncm91cHMgPSBsaXN0KA0KICAgICAgICAgICAgICAgICB0cmVuZCA9IGMoMCwgZXBzKSwNCiAgICAgICAgICAgICAgICAgc2Vzb25hbCA9IGMoMS8xMi1lcHMsIDEvMTIgKyBlcHMpDQogICAgICAgICAgICAgICApDQogICAgICAgICAgICAgICApJHRfc2VyaWVzDQoNCmZfQyA8LSBmX2NvbnN0IHw+IGdlbmVyYXRlX3RzKG4sIEMgPSAxKQ0KZl9jIDwtIGZfY29zIHw+IGdlbmVyYXRlX3RzKG4sIG9tZWdhID0gMS8xMikNCnByaW50KCLQntGI0LjQsdC60Lgg0L/RgNC4IENpU1NBIikNCnByaW50KHBhc3RlKCLQntGI0LjQsdC60LAg0L/RgNC4INCy0YvRh9C40YHQu9C10L3QuNC4IEMgPSAxOiAiLCBtc2UoZl9DLCByJHRyZW5kKSB8PiBmb3JtYXQoc2NpZW50aWZpYyA9IFRSVUUsIGRpZ2l0cyA9IDIpICkpDQpwcmludChwYXN0ZSgi0J7RiNC40LHQutCwINC/0YDQuCDQstGL0YfQuNGB0LvQtdC90LjQuCBjb3MocGkvMTIpOiAiLCBtc2UoZl9jLCByJHNlc29uYWwpIHw+IGZvcm1hdChzY2llbnRpZmljID0gVFJVRSwgZGlnaXRzID0gMikgKSkNCg0KbGluZXMoMTpuLCByJHRyZW5kLCBjb2w9ImJsdWUiKQ0KbGluZXMoMTpuLCByJHNlc29uYWwsIGNvbD0iYmx1ZSIpDQoNCmZfY29uc3QgfD4gZ2VuZXJhdGVfdHMobiwgQyA9IDEpIHw+DQogIHBsb3QoY29sID0gImdyZWVuIiwgeWxpbSA9IGMoLTEsIDIpLCB5bGFiID0gImZfbiIpDQpmX2NvcyB8Pg0KICBnZW5lcmF0ZV90cyhuLCBvbWVnYSA9IDEvMTIpIHw+DQogIGxpbmVzKGNvbD0iZ3JlZW4iKQ0KZl9zdW0gfD4gZ2VuZXJhdGVfdHMobikgfD4gbGluZXMobHdkID0gMywgY29sPSdyZWQnKQ0KZl9uIDwtIGZfc3VtKDE6bikNCg0KcyA8LSBzc2EoZl9uLCBMID0gOTYpDQpyIDwtIHJlY29uc3RydWN0KHMsIGdyb3Vwcz1saXN0KA0KICB0cmVuZCA9IDEsDQogIHNlc29uYWwgPSAyOjMNCikpDQoNCg0KcHJpbnQoItCe0YjQuNCx0LrQuCDQv9GA0LggU1NBIikNCnByaW50KHBhc3RlKCLQntGI0LjQsdC60LAg0L/RgNC4INCy0YvRh9C40YHQu9C10L3QuNC4IEMgPSAxOiAiLCBtc2UoZl9DLCByJHRyZW5kKSB8PiBmb3JtYXQoc2NpZW50aWZpYyA9IFRSVUUsIGRpZ2l0cyA9IDIpICApKQ0KcHJpbnQocGFzdGUoItCe0YjQuNCx0LrQsCDQv9GA0Lgg0LLRi9GH0LjRgdC70LXQvdC40LggY29zKHBpLzEyKTogIiwgbXNlKGZfYywgciRzZXNvbmFsKSB8PiBmb3JtYXQoc2NpZW50aWZpYyA9IFRSVUUsIGRpZ2l0cyA9IDIpKSkNCg0KbGluZXMoMTpuLCByJHRyZW5kKQ0KbGluZXMoMTpuLCByJHNlc29uYWwpDQpgYGANCg0KIyMjIyDQn9GA0L7QstC10YDQutCwINGA0LDQt9C00LXQu9C40LzQvtGB0YLQuCDQvdC10L/QtdGA0LjQvtC00LjRh9C10YHQutC40YUg0LrQvtC80L/QvtC90LXQvdGCICsg0LDQstGC0L7Qs9GA0YPQv9C/0LjRgNC+0LLQutCwIFNTQQ0KDQpgYGB7cn0NCm4gPC0gOTYqMi0xDQpMIDwtIDk2DQplcHMgPC0gMS85Nw0KDQpDIDwtIDENCm9tZWdhX2NzIDwtIDEvMTINCm9tZWdhX3NuIDwtIDEvMjQNCmEgPC0gMS8xMDANCmZfc3VtIDwtIGZ1bmN0aW9uKHgpew0KICBmX2NvbnN0KHgsIEMgPSBDKSArDQogICAgZl9jb3MoeCwgb21lZ2EgPSBvbWVnYV9jcykgKw0KICAgIGZfZXhwKHgsIGEgPSBhKSArDQogICAgZl9zaW4oeCwgb21lZ2EgPSBvbWVnYV9zbikNCn0NCg0KDQpmX0MgPC0gZl9jb25zdCB8PiBnZW5lcmF0ZV90cyhuLCBDID0gQykNCmZfYyA8LSBmX2NvcyB8PiBnZW5lcmF0ZV90cyhuLCBvbWVnYSA9IG9tZWdhX2NzKQ0KZl9zIDwtIGZfc2luIHw+IGdlbmVyYXRlX3RzKG4sIG9tZWdhID0gb21lZ2Ffc24pDQpmX2UgPC0gZl9leHAgfD4gZ2VuZXJhdGVfdHMobiwgYSA9IGEpDQoNCmZfbiA8LSBmX3N1bSgxOm4pDQoNCmxpYnJhcnkoeHRhYmxlKQ0KDQojINCo0LDQsyAyOiDQodC+0LfQtNCw0L3QuNC1INC/0YDQuNC80LXRgNCwINC00LDQvdC90YvRhQ0KZGF0YSA8LSBkYXRhLmZyYW1lKA0KICDQnNC10YLQvtC0ID0gYygiU1NBIiwgIkNpU1NBIiksDQogIGVfZXJyID0gYygyMCwgMjApLA0KICBjX2VyciA9IGMoMjMsIDM1KSwNCiAgZWNfZXJyID0gYygyMCwgMjApLA0KICBzaW5fZXJyID0gYyAoMjAsIDIwKSwNCiAgY29zX2VyciA9IGMoMSwgMSkNCikNCg0KDQojINCe0YLRgNC40YHQvtCy0LrQsCDRgNGP0LTQsCBmX24NCnBsb3QoZl9uLCB0eXBlID0gImwiLCBsd2QgPSAzLCBjb2wgPSAncmVkJywgeWxpbSA9IGMoLTIsIDEwKSwNCiAgICAgeGxhYiA9ICLQktGA0LXQvNGPIiwgeWxhYiA9ICLQl9C90LDRh9C10L3QuNGPINGA0Y/QtNCwIiwgbWFpbiA9ICLQoNCw0LfQu9C+0LbQtdC90LjQtSDQstGA0LXQvNC10L3QvdC+0LPQviDRgNGP0LTQsCIpDQoNCiMg0JTQvtCx0LDQstC70LXQvdC40LUg0L7RgtC00LXQu9GM0L3Ri9GFINC60L7QvNC/0L7QvdC10L3RgtC+0LIgKGZfQywgZl9jLCBmX2UpDQpsaW5lcyhmX0MsIGNvbCA9ICJibHVlIikgICMg0JrQvtC80L/QvtC90LXQvdGCIGZfQw0KbGluZXMoZl9jLCBjb2wgPSAiYmx1ZSIpICAjINCa0L7QvNC/0L7QvdC10L3RgiBmX2MNCmxpbmVzKGZfZSwgY29sID0gImJsdWUiKSAgIyDQmtC+0LzQv9C+0L3QtdC90YIgZl9lDQpsaW5lcyhmX3MsIGNvbCA9ICJibHVlIikNCg0KIyDQm9C10LPQtdC90LTQsA0KbGVnZW5kKCJ0b3BsZWZ0IiwgbGVnZW5kID0gYygi0JLQtdGB0Ywg0YDRj9C0IiwgItCa0L7QvNC/0L7QvdC10L3RgtGLIiksIA0KICAgICAgIGNvbCA9IGMoInJlZCIsICJibHVlIiksIGx0eSA9IDEsIGx3ZCA9IDMpDQoNCg0KDQoNCg0KDQoNCg0KYyA8LSBjaXJjdWxhbnRfU1NBKGZfbiwgTCA9IEwsIGV4dGVuZF9mbGFnID0gVFJVRSkNCiMgciA8LSBjJHRfc2VyaWVzDQpyIDwtIGdyb3VwaW5nX2Npc3NhKGMsDQogICAgICAgICAgICAgICAgICAgIGdyb3VwcyA9IGxpc3QoDQogICAgICAgICAgICAgICAgICAgICAgIyB0cmVuZCA9IGMoMCwgMS8xMDApLA0KICAgICAgICAgICAgICAgICAgICAgIHRyZW5kID0gYygtMSwgMS8yNSksDQogICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvMTItZXBzLCAxLzEyK2VwcyksDQogICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9zaW4gPSBjKDEvMjQgLSBlcHMsIDEvMjQrZXBzKQ0KICAgICAgICAgICAgICAgICAgICApKSR0X3Nlcmllcw0KDQpkYXRhJGNvc19lcnJbMl0gPC0gbXNlKGZfcywgciRzZXNvbmFsX3NpbikgfD4gZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJHNpbl9lcnJbMl0gPC0gbXNlKGZfYywgciRzZXNvbmFsX2NvcykgfD4gZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGVjX2VyclsyXSA8LSBtc2UoZl9DK2ZfZSwgciR0cmVuZCkgfD4gZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQoNCg0KIyBwbmcoIkM6L1VzZXJzL25pazFtL0Rlc2t0b3Av0YPQvdC40LovNiDRgdC10Lwv0LrRg9GA0YHQsNGHL9Ci0LXQutGB0YIg0YDQsNCx0L7RgtGLL2ltZy90cmVuZCBpbnNlcGFyYWJpbGl0eS9DaVNTQS5wbmciKSAgIyDRgdC+0YXRgNCw0L3QtdC90LjQtSDQsiDRhNC+0YDQvNCw0YLQtSBQTkcNCg0KcGxvdCgxOm4sIGZfbiwgdHlwZSA9ICJsIiwgbHdkPTMsIHlsaW09IGMoLTIsIDEwKSwgY29sPSJyZWQiLA0KICAgICB4bGFiID0gItCS0YDQtdC80Y8iLCB5bGFiID0gItCX0L3QsNGH0LXQvdC40Y8g0YDRj9C00LAiLCBtYWluID0gIkNpU1NBINGA0LDQt9C70L7QttC10L3QuNC1INCy0YDQtdC80LXQvdC90L7Qs9C+INGA0Y/QtNCwIikNCmxpbmVzKDE6biwgciR0cmVuZCwgY29sID0gImJsdWUiKQ0KbGluZXMoMTpuLCByJHNlc29uYWxfc2luLCBjb2wgPSAiYmx1ZSIpDQpsaW5lcygxOm4sIHIkc2Vzb25hbF9jb3MsIGNvbCA9ICJibHVlIikNCg0KIyDQm9C10LPQtdC90LTQsA0KbGVnZW5kKCJ0b3BsZWZ0IiwgbGVnZW5kID0gYygi0JLQtdGB0Ywg0YDRj9C0IiwgItCa0L7QvNC/0L7QvdC10L3RgtGLIiksIA0KICAgICAgIGNvbCA9IGMoInJlZCIsICJibHVlIiksIGx0eSA9IDEsIGx3ZCA9IDMpDQoNCiMgZGV2Lm9mZigpICAjINC30LDQstC10YDRiNC10L3QuNC1INGB0L7RhdGA0LDQvdC10L3QuNGPDQoNCg0KDQoNCg0KDQoNCg0KDQoNCnMgPC0gc3NhKGZfbiwgTCkNCiNlIDwtIGVvc3NhX25ldyhzLCBuZXN0ZWQuZ3JvdXBzID0gbGlzdCgxOjEwKSwgY2x1c3RfdHlwZSA9ICJkaXN0YW5jZSIsIGs9IDcpDQplIDwtIGVvc3NhKHMsIDE6MTAsIGsgPSA3KQ0KDQpnX3Nlc29uYWwgPC0gZ3JvdXBpbmcuYXV0byhlLCBiYXNlID0gImVpZ2VuIiwNCiAgICAgICAgICAgICAgICAgICBmcmVxLmJpbnMgPSBsaXN0KHRyZW5kID0gYygyKmVwcyksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsMiA9IGMoMS8yNC1lcHMsIDEvMjQrZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWwxID0gYygxLzEyLWVwcywgMS8xMitlcHMpDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICApLA0KICAgICAgICAgICAgICAgICAgIHRocmVzaG9sZCA9IDAuMSkNCg0KDQpyIDwtIFJzc2E6OnJlY29uc3RydWN0KGUsIGdyb3Vwcz1jKGxpc3QoZXhwID0gMSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgQyA9IDINCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZ19zZXNvbmFsKQ0KICAgICAgICAgICAgICAgICApDQoNCnBsb3Qod2NvcihlLCBncm91cHMgPSAxOjI0KSwgc2NhbGVzID0gbGlzdChhdCA9IGMoMTAsIDIwLCAzMCkpKQ0KDQpkYXRhJGNfZXJyWzFdIDwtIG1zZShmX0MsIHIkQykgfD4gZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGVfZXJyWzFdIDwtIG1zZShmX2UsIHIkZXhwKSB8PiBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkY29zX2VyclsxXSA8LSBtc2UoZl9jLCByJHNlc29uYWwxKSB8PiBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2VyclsxXSA8LSBtc2UoZl9zLCByJHNlc29uYWwyKSB8PiBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkZWNfZXJyWzFdIDwtIG1zZShmX0MrZl9lLCByJEMrciRleHApIHw+IGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KDQoNCiMgcG5nKCJDOi9Vc2Vycy9uaWsxbS9EZXNrdG9wL9GD0L3QuNC6LzYg0YHQtdC8L9C60YPRgNGB0LDRhy/QotC10LrRgdGCINGA0LDQsdC+0YLRiy9pbWcvdHJlbmQgaW5zZXBhcmFiaWxpdHkvU1NBLnBuZyIpICAjINGB0L7RhdGA0LDQvdC10L3QuNC1INCyINGE0L7RgNC80LDRgtC1IFBORw0KDQpwbG90KDE6biwgZl9uLCB0eXBlID0gImwiLCBsd2Q9MywgeWxpbT0gYygtMiwgMTApLCBjb2w9InJlZCIsDQogICAgIHhsYWIgPSAi0JLRgNC10LzRjyIsIHlsYWIgPSAi0JfQvdCw0YfQtdC90LjRjyDRgNGP0LTQsCIsIG1haW4gPSAiU1NBINGA0LDQt9C70L7QttC10L3QuNC1INCy0YDQtdC80LXQvdC90L7Qs9C+INGA0Y/QtNCwIikNCg0KbGluZXMoMTpuLCByJHRyZW5kLCB0eXBlID0gImwiLCBjb2w9ImdyZWVuIikNCmxpbmVzKDE6biwgciRleHAsIHR5cGUgPSAibCIsIHlsaW09IGMoLTIsIDEwKSwgY29sPSJibHVlIikNCmxpbmVzKDE6biwgciRDLCBjb2wgPSAiYmx1ZSIpDQpsaW5lcygxOm4sIHIkc2Vzb25hbDEsIGNvbCA9ICJibHVlIikNCmxpbmVzKDE6biwgciRzZXNvbmFsMiwgY29sID0gImJsdWUiKQ0KDQojINCb0LXQs9C10L3QtNCwDQpsZWdlbmQoInRvcGxlZnQiLCBsZWdlbmQgPSBjKCLQktC10YHRjCDRgNGP0LQiLCAi0JrQvtC80L/QvtC90LXQvdGC0YsiKSwgDQogICAgICAgY29sID0gYygicmVkIiwgImJsdWUiKSwgbHR5ID0gMSwgbHdkID0gMykNCg0KDQoNCg0KDQoNCg0KIyDQqNCw0LMgMzog0J/RgNC10L7QsdGA0LDQt9C+0LLQsNC90LjQtSDQtNCw0L3QvdGL0YUg0LIg0YTQvtGA0LzQsNGCIExhVGVYDQp0YWJsZV9sYXRleCA8LSB4dGFibGUoZGF0YSwgY2FwdGlvbiA9ICJFeGFtcGxlIFRhYmxlIikNCg0KIyDQqNCw0LMgNDog0JLRi9Cy0L7QtCDRgtCw0LHQu9C40YbRiyDQsiBMYVRlWCDRhNCw0LnQuw0KcHJpbnQodGFibGVfbGF0ZXgsIGluY2x1ZGUucm93bmFtZXMgPSBGQUxTRSkNCg0KDQoNCg0KDQpgYGANCg0KIyMjIyDQn9GA0LjQvNC10YAgY29zXCpleHANCg0KYGBge3J9DQpuIDwtIDk2KjItMQ0KTCA8LSA5Ng0KZXBzIDwtIDEvKEwrMSkNCg0KQyA8LSAxDQpvbWVnYV9jcyA8LSAxLzEyDQpvbWVnYV9zbiA8LSAxLzI0DQphIDwtIDEvMTAwDQpvbWVnYV9leHAgPC0gMS80OA0KZl9zdW0gPC0gZnVuY3Rpb24oeCl7DQogICAgZl9jb3MoeCwgb21lZ2EgPSBvbWVnYV9jcykgKw0KICAgIGZfZXhwX21vZF9oYXJtX3Nlcmllcyh4LCBhID0gYSwgb21lZ2EgPSBvbWVnYV9leHApICsNCiAgICBmX3Npbih4LCBvbWVnYSA9IG9tZWdhX3NuKSANCn0NCg0KDQpmX2MgPC0gZl9jb3MgfD4gZ2VuZXJhdGVfdHMobiwgb21lZ2EgPSBvbWVnYV9jcykNCmZfcyA8LSBmX3NpbiB8PiBnZW5lcmF0ZV90cyhuLCBvbWVnYSA9IG9tZWdhX3NuKQ0KZl9lIDwtIGZfZXhwX21vZF9oYXJtX3NlcmllcyB8PiBnZW5lcmF0ZV90cyhuLCBhID0gYSwgb21lZ2EgPSBvbWVnYV9leHApDQoNCmZfbiA8LSBmX3N1bSgxOm4pDQoNCmxpYnJhcnkoeHRhYmxlKQ0KDQojINCo0LDQsyAyOiDQodC+0LfQtNCw0L3QuNC1INC/0YDQuNC80LXRgNCwINC00LDQvdC90YvRhQ0KZGF0YSA8LSBkYXRhLmZyYW1lKA0KICDQnNC10YLQvtC0ID0gYygiU1NBIiwgIkNpU1NBIiksDQogIGV4cF9lcnIgPSBjKDIwLCAyMCksDQogIHNpbl9lcnIgPSBjICgyMCwgMjApLA0KICBjb3NfZXJyID0gYygxLCAxKQ0KKQ0KDQoNCiMg0J7RgtGA0LjRgdC+0LLQutCwINGA0Y/QtNCwIGZfbg0KcGxvdChmX24sIHR5cGUgPSAibCIsIGx3ZCA9IDMsIGNvbCA9ICdyZWQnLCB5bGltID0gYygtMTAsIDEwKSwNCiAgICAgeGxhYiA9ICLQktGA0LXQvNGPIiwgeWxhYiA9ICLQl9C90LDRh9C10L3QuNGPINGA0Y/QtNCwIiwgbWFpbiA9ICLQoNCw0LfQu9C+0LbQtdC90LjQtSDQstGA0LXQvNC10L3QvdC+0LPQviDRgNGP0LTQsCIpDQoNCiMg0JTQvtCx0LDQstC70LXQvdC40LUg0L7RgtC00LXQu9GM0L3Ri9GFINC60L7QvNC/0L7QvdC10L3RgtC+0LIgKGZfQywgZl9jLCBmX2UpDQpsaW5lcyhmX2MsIGNvbCA9ICJibHVlIikgICMg0JrQvtC80L/QvtC90LXQvdGCIGZfYw0KbGluZXMoZl9lLCBjb2wgPSAiYmx1ZSIpICAjINCa0L7QvNC/0L7QvdC10L3RgiBmX2UNCmxpbmVzKGZfcywgY29sID0gImJsdWUiKQ0KDQojINCb0LXQs9C10L3QtNCwDQpsZWdlbmQoInRvcGxlZnQiLCBsZWdlbmQgPSBjKCLQktC10YHRjCDRgNGP0LQiLCAi0JrQvtC80L/QvtC90LXQvdGC0YsiKSwgDQogICAgICAgY29sID0gYygicmVkIiwgImJsdWUiKSwgbHR5ID0gMSwgbHdkID0gMykNCg0KDQoNCg0KDQoNCg0KDQpjIDwtIGNpcmN1bGFudF9TU0EoZl9uLCBMID0gTCwgZXh0ZW5kX2ZsYWcgPSBUUlVFKQ0KIyByIDwtIGMkdF9zZXJpZXMNCnIgPC0gZ3JvdXBpbmdfY2lzc2EoYywNCiAgICAgICAgICAgICAgICAgICAgZ3JvdXBzID0gbGlzdCgNCiAgICAgICAgICAgICAgICAgICAgICB0cmVuZCA9IGMoMCwgMS8yNi1lcHMpLA0KICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWxfY29zID0gYygxLzEyLWVwcywgMS8xMitlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWxfc2luID0gYygxLzI0LWVwcywgMS8yNCtlcHMpDQogICAgICAgICAgICAgICAgICAgICkpJHRfc2VyaWVzDQoNCmRhdGEkY29zX2VyclsyXSA8LSBtc2UoZl9zLCByJHNlc29uYWxfc2luKSB8PiBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2VyclsyXSA8LSBtc2UoZl9jLCByJHNlc29uYWxfY29zKSB8PiBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkZXhwX2VyclsyXSA8LSBtc2UoZl9lLCByJHRyZW5kKSB8PiBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KDQojIHBuZygiQzovVXNlcnMvbmlrMW0vRGVza3RvcC/Rg9C90LjQui82INGB0LXQvC/QutGD0YDRgdCw0Ycv0KLQtdC60YHRgiDRgNCw0LHQvtGC0YsvaW1nL3RyZW5kIGluc2VwYXJhYmlsaXR5L0NpU1NBLnBuZyIpICAjINGB0L7RhdGA0LDQvdC10L3QuNC1INCyINGE0L7RgNC80LDRgtC1IFBORw0KDQpwbG90KDE6biwgZl9uLCB0eXBlID0gImwiLCBsd2Q9MywgeWxpbT0gYygtMTAsIDEwKSwgY29sPSJyZWQiLA0KICAgICB4bGFiID0gItCS0YDQtdC80Y8iLCB5bGFiID0gItCX0L3QsNGH0LXQvdC40Y8g0YDRj9C00LAiLCBtYWluID0gIkNpU1NBINGA0LDQt9C70L7QttC10L3QuNC1INCy0YDQtdC80LXQvdC90L7Qs9C+INGA0Y/QtNCwIikNCmxpbmVzKDE6biwgciR0cmVuZCwgY29sID0gImJsdWUiKQ0KbGluZXMoMTpuLCByJHNlc29uYWxfc2luLCBjb2wgPSAiYmx1ZSIpDQpsaW5lcygxOm4sIHIkc2Vzb25hbF9jb3MsIGNvbCA9ICJibHVlIikNCg0KIyDQm9C10LPQtdC90LTQsA0KbGVnZW5kKCJ0b3BsZWZ0IiwgbGVnZW5kID0gYygi0JLQtdGB0Ywg0YDRj9C0IiwgItCa0L7QvNC/0L7QvdC10L3RgtGLIiksIA0KICAgICAgIGNvbCA9IGMoInJlZCIsICJibHVlIiksIGx0eSA9IDEsIGx3ZCA9IDMpDQoNCiMgZGV2Lm9mZigpICAjINC30LDQstC10YDRiNC10L3QuNC1INGB0L7RhdGA0LDQvdC10L3QuNGPDQoNCg0KDQoNCg0KDQoNCg0KDQoNCnMgPC0gc3NhKGZfbiwgTCkNCmUgPC0gZW9zc2FfbmV3KHMsIG5lc3RlZC5ncm91cHMgPSBsaXN0KDE6MzApLCBjbHVzdF90eXBlID0gImRpc3RhbmNlIikNCg0KZ19zZXNvbmFsIDwtIGdyb3VwaW5nLmF1dG8oZSwgYmFzZSA9ICJlaWdlbiIsDQogICAgICAgICAgICAgICAgICAgZnJlcS5iaW5zID0gbGlzdCh0cmVuZCA9IGMoMS8yNS1lcHMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbDIgPSBjKDEvMjQtZXBzLCAxLzI0K2VwcyksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsMSA9IGMoMS8xMi1lcHMsIDEvMTIrZXBzKQ0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKSwNCiAgICAgICAgICAgICAgICAgICB0aHJlc2hvbGQgPSAwLjEpDQoNCg0KciA8LSByZWNvbnN0cnVjdChlLCBncm91cHM9IGdfc2Vzb25hbCkNCg0KcGxvdCh3Y29yKGUsIGdyb3VwcyA9IDE6MjQpLCBzY2FsZXMgPSBsaXN0KGF0ID0gYygxMCwgMjAsIDMwKSkpDQoNCmRhdGEkZXhwX2VyclsxXSA8LSBtc2UoZl9lLCByJHRyZW5kKSAgfD4gZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGNvc19lcnJbMV0gPC0gbXNlKGZfYywgciRzZXNvbmFsMSkgfD4gZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJHNpbl9lcnJbMV0gPC0gbXNlKGZfcywgciRzZXNvbmFsMikgfD4gZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQoNCg0KIyBwbmcoIkM6L1VzZXJzL25pazFtL0Rlc2t0b3Av0YPQvdC40LovNiDRgdC10Lwv0LrRg9GA0YHQsNGHL9Ci0LXQutGB0YIg0YDQsNCx0L7RgtGLL2ltZy90cmVuZCBpbnNlcGFyYWJpbGl0eS9TU0EucG5nIikgICMg0YHQvtGF0YDQsNC90LXQvdC40LUg0LIg0YTQvtGA0LzQsNGC0LUgUE5HDQoNCnBsb3QoMTpuLCBmX24sIHR5cGUgPSAibCIsIGx3ZD0zLCB5bGltPSBjKC0xMCwgMTApLCBjb2w9InJlZCIsDQogICAgIHhsYWIgPSAi0JLRgNC10LzRjyIsIHlsYWIgPSAi0JfQvdCw0YfQtdC90LjRjyDRgNGP0LTQsCIsIG1haW4gPSAiU1NBINGA0LDQt9C70L7QttC10L3QuNC1INCy0YDQtdC80LXQvdC90L7Qs9C+INGA0Y/QtNCwIikNCg0KbGluZXMoMTpuLCByJHRyZW5kLCB0eXBlID0gImwiLCBjb2w9ImJsdWUiKQ0KbGluZXMoMTpuLCByJHNlc29uYWwxLCBjb2wgPSAiYmx1ZSIpDQpsaW5lcygxOm4sIHIkc2Vzb25hbDIsIGNvbCA9ICJibHVlIikNCg0KIyDQm9C10LPQtdC90LTQsA0KbGVnZW5kKCJ0b3BsZWZ0IiwgbGVnZW5kID0gYygi0JLQtdGB0Ywg0YDRj9C0IiwgItCa0L7QvNC/0L7QvdC10L3RgtGLIiksIA0KICAgICAgIGNvbCA9IGMoInJlZCIsICJibHVlIiksIGx0eSA9IDEsIGx3ZCA9IDMpDQoNCg0KDQoNCg0KDQoNCiMg0KjQsNCzIDM6INCf0YDQtdC+0LHRgNCw0LfQvtCy0LDQvdC40LUg0LTQsNC90L3Ri9GFINCyINGE0L7RgNC80LDRgiBMYVRlWA0KdGFibGVfbGF0ZXggPC0geHRhYmxlKGRhdGEsIGNhcHRpb24gPSAiRXhhbXBsZSBUYWJsZSIpDQoNCiMg0KjQsNCzIDQ6INCS0YvQstC+0LQg0YLQsNCx0LvQuNGG0Ysg0LIgTGFUZVgg0YTQsNC50LsNCnByaW50KHRhYmxlX2xhdGV4LCBpbmNsdWRlLnJvd25hbWVzID0gRkFMU0UpDQoNCg0KYGBgDQoNCiMjINCU0LDQvdC90YvQtSBJUA0KDQpgYGB7cn0NCmxpYnJhcnkocmVhZHhsKQ0KZGF0YSA8LSByZWFkX2V4Y2VsKCJEYXRhL0ludGVybmF0aW9uYWxfRmluYW5jaWFsX1N0YXRpc3RpY3NfLnhsc3giKQ0KZGF0YSB8PiBoZWFkKCkNCmBgYA0KDQrQntGC0YDQuNGB0L7QstC60LAg0LTQsNC90L3Ri9GFIElQDQoNCmBgYHtyfQ0KZGF0ZXMgPC0gc2VxKGFzLkRhdGUoIjE5NzAtMDEtMDEiKSwgYXMuRGF0ZSgiMjAxOC0xLTMwIiksIGJ5ID0gIm1vbnRoIikNCklQX3ZhbHVlcyA8LSBkYXRhWzIsIC1jKDEsIDIpXSB8PiBhcy5kb3VibGUoKSANCnBsb3QoZGF0ZXMsIElQX3ZhbHVlcywgdHlwZT0ibCIpDQpgYGANCg0KIyMjIyBDaXNzYQ0KDQrQntGC0YDQuNGB0L7QstC60LAg0YLRgNC10L3QtNC+0LLQvtC5INGB0L7RgdGC0LDQstC70Y/RjtGJ0LXQuSDRh9GR0YDQvdGL0Lwg0YbQstC10YLQvtC8LCDQvtGB0L3QvtCy0L3QvtC5INCy0YDQtdC80LXQvdC90L7QuSDRgNGP0LQg4oCUINC60YDQsNGB0L3Ri9C8DQoNCmBgYHtyfQ0KZGF0YV9zbGljZSA8LSAxOjUzNw0KZGF0ZXNfc2xpY2UgPC0gZGF0ZXNbZGF0YV9zbGljZV0NCklQX3ZhbHVlc19zbGljZSA8LSBJUF92YWx1ZXNbZGF0YV9zbGljZV0NCmVwcyA8LSAxLzE5Mw0KDQpjIDwtIGNpcmN1bGFudF9TU0EoSVBfdmFsdWVzX3NsaWNlLCBMID0gMTkyLCBleHRlbmRfZmxhZyA9IFRSVUUpDQpyIDwtIGMkdF9zZXJpZXMNCnIgPC0gZ3JvdXBpbmdfY2lzc2EoYywNCiAgICAgICAgICAgICAgICAgICAgZ3JvdXBzID0gbGlzdCgNCiAgICAgICAgICAgICAgICAgICAgICB0cmVuZCA9IGMoMCwgMS8xOTIpLA0KICAgICAgICAgICAgICAgICAgICAgIGN5Y2xlID0gYygxLzk3LCA1Lzk1KSwNCiAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsID0gYygxLzEzLCAxLzIrMC4wMDAxKQ0KICAgICAgICAgICAgICAgICAgICApDQogICAgICAgICAgICAgICAgICAgICkkdF9zZXJpZXMNCnJfc2Vzb25hbCA8LSAgZ3JvdXBpbmdfY2lzc2EoYywNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZ3JvdXBzID0gbGlzdCgNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHMxID0gYygxNi8xOTIgLSBlcHMsIDE2LzE5MiArIGVwcyksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzMiA9IGMoMzIvMTkyIC0gZXBzLCAzMi8xOTIgKyBlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgczMgPSBjKDQ4LzE5MiAtIGVwcywgNDgvMTkyICsgZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHM0ID0gYyg2NC8xOTIgLSBlcHMsIDY0LzE5MiArIGVwcyksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzNSA9IGMoODAvMTkyIC0gZXBzLCA4MC8xOTIgKyBlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgczYgPSBjKDk2LzE5MiAtIGVwcywgOTYvMTkyICsgZXBzKQ0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICApDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICkkdF9zZXJpZXMNCiMgY2lzc2FfdHJlbmQgPC0gclssMV0gKyByWywyXQ0KIyBjaXNzYV9jeWNsZSA8LSByWywgMzoxMV0gfD4gcm93U3VtcygpDQojIGNpc3NhX3Nlc29uYWwgPC0gclssIGMoMTcsIDMzLCA0OSwgNjUsIDgxLCA5NyldIHw+IHJvd1N1bXMoKQ0KIyBjaXNzYV9yZXNpZHVhbHMgPC0gSVBfdmFsdWVzX3NsaWNlIC0gKGNpc3NhX3RyZW5kICsgY2lzc2FfY3ljbGUgKyBjaXNzYV9zZXNvbmFsKQ0KDQpjaXNzYV90cmVuZCA8LSByJHRyZW5kDQpjaXNzYV9jeWNsZSA8LSByJGN5Y2xlDQpjaXNzYV9zZXNvbmFsIDwtIFJlZHVjZSgiKyIsIHJfc2Vzb25hbCB8PiB3aXRoaW4ocm0ocmVzaWR1YWxzKSkpDQpjaXNzYV9yZXNpZHVhbHMgPC0gSVBfdmFsdWVzX3NsaWNlIC0gKGNpc3NhX3RyZW5kICsgY2lzc2FfY3ljbGUgKyBjaXNzYV9zZXNvbmFsKQ0KDQoNCnBsb3QoZGF0ZXNfc2xpY2UsIElQX3ZhbHVlc19zbGljZSwNCiAgICAgdHlwZT0ibCIsIGNvbCA9ICJibGFjayIpDQpsaW5lcyhkYXRlc19zbGljZSwgY2lzc2FfdHJlbmQsDQogICAgICB0eXBlPSJsIiwgY29sID0gInJlZCIpDQoNCnBsb3QoZGF0ZXNfc2xpY2UsIGNpc3NhX2N5Y2xlLA0KICAgICB0eXBlPSJsIiwgY29sID0gInJlZCIpDQoNCnBsb3QoZGF0ZXNfc2xpY2UsIGNpc3NhX3Nlc29uYWwsDQogICAgIHR5cGU9ImwiLCBjb2wgPSAicmVkIikNCg0KcGxvdChkYXRlc19zbGljZSwgY2lzc2FfcmVzaWR1YWxzLA0KICAgICB0eXBlPSJsIiwgY29sID0gInJlZCIpDQoNCnBsb3QoZGF0ZXNfc2xpY2UsIElQX3ZhbHVlc19zbGljZSwNCiAgICAgdHlwZT0ibCIsIGNvbCA9ICJibGFjayIpDQpsaW5lcyhkYXRlc19zbGljZSwgY2lzc2FfdHJlbmQrY2lzc2FfY3ljbGUrY2lzc2Ffc2Vzb25hbCwNCiAgICAgIHR5cGU9ImwiLCBjb2wgPSAicmVkIikNCmBgYA0KDQojIyMjIFNTQSBmb3NzYQ0KDQpgYGB7cn0NCnMgPC0gc3NhKElQX3ZhbHVlc19zbGljZSwgTCA9IDE5MikNCmUgPC0gZm9zc2EocykNCiMgZSA8LSBlb3NzYV9uZXcocywgbmVzdGVkLmdyb3VwcyA9IGxpc3QoMTozMCksIGNsdXN0X3R5cGUgPSAiZGlzdGFuY2UiKQ0KZXBzIDwtIDEvMTkzDQoNCmdyb3VwcyA8LSBncm91cGluZy5hdXRvKGUsDQogICAgICAgICAgICAgICAgICAgZnJlcS5iaW5zID0gbGlzdCh0cmVuZCA9IGMoMS8xOTIpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY3ljbGUgPSBjKDEvOTcsIDUvOTUpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgczEgPSBjKDE2LzE5MiAtIGVwcywgMTYvMTkyICsgZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHMyID0gYygzMi8xOTIgLSBlcHMsIDMyLzE5MiArIGVwcyksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzMyA9IGMoNDgvMTkyIC0gZXBzLCA0OC8xOTIgKyBlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgczQgPSBjKDY0LzE5MiAtIGVwcywgNjQvMTkyICsgZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHM1ID0gYyg4MC8xOTIgLSBlcHMsIDgwLzE5MiArIGVwcyksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzNiA9IGMoOTYvMTkyIC0gZXBzLCA5Ni8xOTIgKyBlcHMpDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICApLA0KICAgICAgICAgICAgICAgICAgIHRocmVzaG9sZCA9IDApDQoNCg0KcGxvdCh3Y29yKGUsIGdyb3VwcyA9IDE6MzApLCBzY2FsZXMgPSBsaXN0KGF0ID0gYygxMCwgMjAsIDMwKSksDQogICAgIG1haW4gPSAiVy1jb3JyZWxhdGlvbiBtYXRyaXggU1NBIChmb3NzYSkiKQ0KDQpyIDwtIHJlY29uc3RydWN0KGUsIGdyb3Vwcz1ncm91cHMpDQoNCnNzYV90cmVuZF9mIDwtIHIkdHJlbmQNCnNzYV9jeWNsZV9mIDwtIHIkY3ljbGUNCnNzYV9zZXNvbmFsX2YgPC0gciRzMSArIHIkczIgKyByJHMzICsgciRzNCArIHIkczUgKyByJHM2DQpzc2FfcmVzaWR1YWxzX2YgPC0gSVBfdmFsdWVzX3NsaWNlIC0gKHNzYV90cmVuZF9mICsgc3NhX2N5Y2xlX2YgKyBzc2Ffc2Vzb25hbF9mKQ0KDQpwbG90KGRhdGVzX3NsaWNlLCBJUF92YWx1ZXNfc2xpY2UsDQogICAgIHR5cGU9ImwiLCBjb2wgPSAiYmxhY2siKQ0KbGluZXMoZGF0ZXNfc2xpY2UsIHNzYV90cmVuZF9mLA0KICAgICAgdHlwZT0ibCIsIGNvbCA9ICJtYWdlbnRhIikNCg0KcGxvdChkYXRlc19zbGljZSwgc3NhX2N5Y2xlX2YsIA0KICAgICB0eXBlPSJsIiwgY29sID0gIm1hZ2VudGEiKQ0KDQpwbG90KGRhdGVzX3NsaWNlLCBzc2Ffc2Vzb25hbF9mLCANCiAgICAgdHlwZT0ibCIsIGNvbCA9ICJtYWdlbnRhIikNCg0KcGxvdChkYXRlc19zbGljZSwgc3NhX3Jlc2lkdWFsc19mLA0KICAgICB0eXBlPSJsIiwgY29sID0gIm1hZ2VudGEiKQ0KDQpgYGANCg0KIyMjIyBTU0EgZW9zc2ENCg0KYGBge3J9DQpsaWJyYXJ5KFJzc2EpDQpzb3VyY2UoImVvc3NhX25ldy5yIikNCnMgPC0gc3NhKElQX3ZhbHVlc19zbGljZSwgTCA9IDE5MikNCmUgPC0gZW9zc2FfbmV3KHMsIG5lc3RlZC5ncm91cHMgPSBsaXN0KDE6MzApLCBjbHVzdF90eXBlID0gImRpc3RhbmNlIikNCg0KDQoNCg0KZ3JvdXBzIDwtIGdyb3VwaW5nLmF1dG8oZSwNCiAgICAgICAgICAgICAgICAgICBmcmVxLmJpbnMgPSBsaXN0KHRyZW5kID0gYygxLzE5MiksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjeWNsZSA9IGMoMS85NywgNS85NSksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzMSA9IGMoMTYvMTkyIC0gZXBzLCAxNi8xOTIgKyBlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgczIgPSBjKDMyLzE5MiAtIGVwcywgMzIvMTkyICsgZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHMzID0gYyg0OC8xOTIgLSBlcHMsIDQ4LzE5MiArIGVwcyksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzNCA9IGMoNjQvMTkyIC0gZXBzLCA2NC8xOTIgKyBlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgczUgPSBjKDgwLzE5MiAtIGVwcywgODAvMTkyICsgZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHM2ID0gYyg5Ni8xOTIgLSBlcHMsIDk2LzE5MiArIGVwcykNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICksDQogICAgICAgICAgICAgICAgICAgdGhyZXNob2xkID0gMCkNCnBsb3Qod2NvcihlLCBncm91cHMgPSAxOjMwKSwgc2NhbGVzID0gbGlzdChhdCA9IGMoMTAsIDIwLCAzMCkpLA0KICAgICBtYWluID0gIlctY29ycmVsYXRpb24gbWF0cml4IFNTQSAoZW9zc2EpIikNCg0KciA8LSByZWNvbnN0cnVjdChlLCBncm91cHM9Z3JvdXBzKQ0KDQpzc2FfdHJlbmQgPC0gciR0cmVuZA0Kc3NhX2N5Y2xlIDwtIHIkY3ljbGUNCnNzYV9zZXNvbmFsIDwtIHIkczEgKyByJHMyICsgciRzMyArIHIkczQgKyByJHM1ICsgciRzNg0Kc3NhX3Jlc2lkdWFscyA8LSBJUF92YWx1ZXNfc2xpY2UgLSAoc3NhX3RyZW5kICsgc3NhX2N5Y2xlICsgc3NhX3Nlc29uYWwpDQoNCnBsb3QoZGF0ZXNfc2xpY2UsIElQX3ZhbHVlc19zbGljZSwNCiAgICAgdHlwZT0ibCIsIGNvbCA9ICJibGFjayIpDQpsaW5lcyhkYXRlc19zbGljZSwgc3NhX3RyZW5kLA0KICAgICAgdHlwZT0ibCIsIGNvbCA9ICJibHVlIikNCg0KcGxvdChkYXRlc19zbGljZSwgc3NhX2N5Y2xlLCANCiAgICAgdHlwZT0ibCIsIGNvbCA9ICJibHVlIikNCg0KcGxvdChkYXRlc19zbGljZSwgc3NhX3Nlc29uYWwsIA0KICAgICB0eXBlPSJsIiwgY29sID0gImJsdWUiKQ0KDQpwbG90KGRhdGVzX3NsaWNlLCBzc2FfcmVzaWR1YWxzLA0KICAgICB0eXBlPSJsIiwgY29sID0gImJsdWUiKQ0KYGBgDQoNCmBgYHtyfQ0KcGxvdChkYXRlc19zbGljZSwgSVBfdmFsdWVzX3NsaWNlLA0KICAgICBtYWluID0gIklQIFVTQSDRgtGA0LXQvdC0Iix4bGFiID0gItCS0YDQtdC80Y8iLCB5bGFiID0gItCX0L3QsNGH0LXQvdC40LUiLA0KICAgICB0eXBlPSJsIiwgY29sID0gImJsYWNrIikNCmxpbmVzKGRhdGVzX3NsaWNlLCBzc2FfdHJlbmQsDQogICAgICB0eXBlPSJsIiwgY29sID0gImJsdWUiLCBsd2Q9MikNCmxpbmVzKGRhdGVzX3NsaWNlLCBzc2FfdHJlbmRfZiwNCiAgICAgIHR5cGU9ImwiLCBjb2wgPSAibWFnZW50YSIsIGx3ZD0yKQ0KbGluZXMoZGF0ZXNfc2xpY2UsIGNpc3NhX3RyZW5kLA0KICAgICAgdHlwZT0ibCIsIGNvbCA9ICJyZWQiLCBsd2Q9MikNCiMg0JvQtdCz0LXQvdC00LANCmxlZ2VuZCgidG9wbGVmdCIsIGxlZ2VuZCA9IGMoItCS0LXRgdGMINGA0Y/QtCIsICJDaVNTQSDRgtGA0LXQvdC0IiwgIlNTQSDRgtGA0LXQvdC0IChlb3NzYSkiLCAiU1NBINGC0YDQtdC90LQgKGZvc3NhKSIpLCANCiAgICAgICBjb2wgPSBjKCJibGFjayIsICJyZWQiLCAiYmx1ZSIsICJtYWdlbnRhIiksIGx0eSA9IDEsIGx3ZCA9IDMpDQoNCg0KcGxvdChkYXRlc19zbGljZSwgc3NhX2N5Y2xlLA0KICAgICBtYWluID0gIklQIFVTQSDRhtC40LrQu9C40YfQvdC+0YHRgtGMIiwgeGxhYiA9ICLQktGA0LXQvNGPIiwgeWxhYiA9ICLQl9C90LDRh9C10L3QuNC1IiwNCiAgICAgdHlwZT0ibCIsIGNvbCA9ICJibHVlIiwgeWxpbT1jKC0xMCwgMTApLCBsd2Q9MikNCmxpbmVzKGRhdGVzX3NsaWNlLCBjaXNzYV9jeWNsZSwNCiAgICAgIHR5cGU9ImwiLCBjb2wgPSAicmVkIiwgbHdkPTIpDQpsaW5lcyhkYXRlc19zbGljZSwgc3NhX2N5Y2xlX2YsDQogICAgICB0eXBlPSJsIiwgY29sID0gIm1hZ2VudGEiLCBsd2Q9MikNCiMg0JvQtdCz0LXQvdC00LANCmxlZ2VuZCgidG9wbGVmdCIsIGxlZ2VuZCA9IGMoIkNpU1NBIiwgIlNTQSAoZW9zc2EpIiwgIlNTQSAoZm9zc2EpIiksIA0KICAgICAgIGNvbCA9IGMoInJlZCIsICJibHVlIiwgIm1hZ2VudGEiKSwgbHR5ID0gMSwgbHdkID0gMykNCg0KYGBgDQoNCmBgYHtyfQ0KIyDQndCw0YHRgtGA0L7QudC60LAg0LPRgNCw0YTQuNC60L7QsiDQtNC70Y8g0L7RgtC+0LHRgNCw0LbQtdC90LjRjyDQtNCy0YPRhSDQs9GA0LDRhNC40LrQvtCyINC+0LTQuNC9INC/0L7QtCDQtNGA0YPQs9C40Lwg0YEg0L7QsdGJ0LXQuSDQvtGB0YzRjiBYDQpsYXlvdXQobWF0cml4KGMoMSwgMiksIG5yb3cgPSAyLCBieXJvdyA9IFRSVUUpLCBoZWlnaHRzID0gYygxLCAxLjIpKQ0KDQojINCf0L7RgdGC0YDQvtC10L3QuNC1INC/0LXRgNCy0L7Qs9C+INCz0YDQsNGE0LjQutCwDQpwYXIobWFyID0gYygyLCA0LCAyLCAyKSkgIyDQo9C80LXQvdGM0YjQtdC90LjQtSDQvdC40LbQvdC10LPQviDQvtGC0YHRgtGD0L/QsA0KcGxvdChkYXRlc19zbGljZSwgc3NhX3Nlc29uYWwsIHR5cGUgPSAibCIsIGNvbCA9ICJibHVlIiwgbHdkID0gMSwNCiAgICAgbWFpbiA9ICJTU0EgKGVvc3NhKSDRgdC10LfQvtC90L3QvtGB0YLRjCIsIHhsYWIgPSAiIiwgeWxhYiA9ICLQl9C90LDRh9C10L3QuNC1IikNCiMg0JTQvtCx0LDQstC70LXQvdC40LUg0L7RgdC4IFgg0LLQvdC40LfRgyDQv9C10YDQstC+0LPQviDQs9GA0LDRhNC40LrQsCwg0L3QviDRgSDQv9GD0YHRgtGL0LzQuCDQvNC10YLQutCw0LzQuA0KYXhpcygxLCBsYWJlbHMgPSBGQUxTRSkNCg0KIyDQn9C+0YHRgtGA0L7QtdC90LjQtSDQstGC0L7RgNC+0LPQviDQs9GA0LDRhNC40LrQsA0KcGFyKG1hciA9IGMoNSwgNCwgMiwgMikpICMg0KPQstC10LvQuNGH0LXQvdC40LUg0L3QuNC20L3QtdCz0L4g0L7RgtGB0YLRg9C/0LANCnBsb3QoZGF0ZXNfc2xpY2UsIHNzYV9zZXNvbmFsX2YsIHR5cGUgPSAibCIsIGNvbCA9ICJtYWdlbnRhIiwgbHdkID0gMSwNCiAgICAgbWFpbiA9ICJTU0EgKGZvc3NhKSDRgdC10LfQvtC90L3QvtGB0YLRjCIsIHhsYWIgPSAi0JLRgNC10LzRjyIsIHlsYWIgPSAi0JfQvdCw0YfQtdC90LjQtSIpDQoNCnBhcihtYXIgPSBjKDMsIDQsIDIsIDIpKSAjINCj0LLQtdC70LjRh9C10L3QuNC1INC90LjQttC90LXQs9C+INC+0YLRgdGC0YPQv9CwDQpwbG90KGRhdGVzX3NsaWNlLCBjaXNzYV9zZXNvbmFsLCB0eXBlID0gImwiLCBjb2wgPSAicmVkIiwgbHdkID0gMSwNCiAgICAgbWFpbiA9ICJDaVNTQSDRgdC10LfQvtC90L3QvtGB0YLRjCIsIHhsYWIgPSAi0JLRgNC10LzRjyIsIHlsYWIgPSAi0JfQvdCw0YfQtdC90LjQtSIpDQoNCiMg0JLQvtGB0YHRgtCw0L3QvtCy0LvQtdC90LjQtSDQvNCw0LrQtdGC0LAg0L/QviDRg9C80L7Qu9GH0LDQvdC40Y4NCmxheW91dCgxKQ0KDQoNCmBgYA0KDQpgYGB7cn0NCnBsb3QoZGF0ZXNfc2xpY2UsIHNzYV9yZXNpZHVhbHMsIA0KICAgICBtYWluID0gIklQIFVTQSDQvtGB0YLQsNGC0L7QuiIsIHhsYWIgPSAi0JLRgNC10LzRjyIsIHlsYWIgPSAi0JfQvdCw0YfQtdC90LjQtSIsDQogICAgIHR5cGU9ImwiLCBjb2wgPSAiYmx1ZSIsIHlsaW09YygtMiwgMikpDQpsaW5lcyhkYXRlc19zbGljZSwgY2lzc2FfcmVzaWR1YWxzLA0KICAgICAgdHlwZT0ibCIsIGNvbCA9ICJyZWQiKQ0KbGluZXMoZGF0ZXNfc2xpY2UsIHNzYV9yZXNpZHVhbHNfZiwNCiAgICAgIHR5cGU9ImwiLCBjb2wgPSAibWFnZW50YSIpDQpsZWdlbmQoInRvcGxlZnQiLCBsZWdlbmQgPSBjKCJDaVNTQSIsICJTU0EgKGVvc3NhKSIsICJTU0EgKGZvc3NhKSIpLCANCiAgICAgICBjb2wgPSBjKCJyZWQiLCAiYmx1ZSIsICJtYWdlbnRhIiksIGx0eSA9IDEsIGx3ZCA9IDMpDQpgYGANCg0KYGBge3J9DQpzc2FfcmVzaWR1YWxzIHw+IGRlbnNpdHkoKSB8PiBwbG90KCkNCmNpc3NhX3Jlc2lkdWFscyB8PiBkZW5zaXR5KCkgfD4gcGxvdCgpDQpgYGANCg0KIyMg0J7RgtC00LXQu9C10L3QuNC1INGB0LjQs9C90LDQu9CwINC+0YIg0YjRg9C80LANCg0KYGBge3J9DQpzZXQuc2VlZCgxMDApDQoNCm5fbXNlX3Rlc3RzIDwtIGZ1bmN0aW9uKG4pew0KICBuIDwtIDk2KjItMQ0KICBMIDwtIDk2DQogIHNpZ21hIDwtIDAuMQ0KICANCiAgDQogIEMgPC0gMQ0KICBvbWVnYV9jcyA8LSAxLzEyDQogIG9tZWdhX3NuIDwtIDEvMjQNCiAgYSA8LSAxLzEwMA0KICBmX3N1bSA8LSBmdW5jdGlvbih4KXsNCiAgICBmX2NvbnN0KHgsIEMgPSBDKSArDQogICAgICBmX2Nvcyh4LCBvbWVnYSA9IG9tZWdhX2NzKSArDQogICAgICBmX2V4cCh4LCBhID0gYSkgKw0KICAgICAgZl9zaW4oeCwgb21lZ2EgPSBvbWVnYV9zbikNCiAgfQ0KICANCiAgDQogIGZfQyA8LSBmX2NvbnN0IHw+IGdlbmVyYXRlX3RzKG4sIEMgPSBDKQ0KICBmX2MgPC0gZl9jb3MgfD4gZ2VuZXJhdGVfdHMobiwgb21lZ2EgPSBvbWVnYV9jcykNCiAgZl9zIDwtIGZfc2luIHw+IGdlbmVyYXRlX3RzKG4sIG9tZWdhID0gb21lZ2Ffc24pDQogIGZfZSA8LSBmX2V4cCB8PiBnZW5lcmF0ZV90cyhuLCBhID0gYSkNCiAgDQogIG1zZV9sc3QgPC0gbGlzdCgpDQogIGZvciAoaSBpbiAxOm4pIHsNCiAgICBmX25vaXNlIDwtIHJub3JtKG4sIHNkID0gc2lnbWEpDQogICAgDQogICAgZl9uIDwtIGZfc3VtKDE6bikgKyBmX25vaXNlDQogICAgDQogICAgDQogICAgDQogICAgYyA8LSBjaXJjdWxhbnRfU1NBKGZfbiwgTCA9IEwsIGV4dGVuZF9mbGFnID0gVFJVRSkNCiAgICAjIHIgPC0gYyR0X3Nlcmllcw0KICAgIHIgPC0gZ3JvdXBpbmdfY2lzc2EoYywgZ3JvdXBzPSBsaXN0KHRyZW5kID0gYygwLCAxLzEwMDApLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsMiA9IGMoMS8yNSwgMS8yMyksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbDEgPSBjKDEvMTMsIDEvMTApDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKSkkdF9zZXJpZXMNCiAgICANCiAgICAjIG1zZV9sc3QkY2lzc2EgPC0gYyhtc2VfbHN0JGNpc3NhLCBtc2UoZl9zdW0oMTpuKSwgclssIDldICsgclssIDVdICsgclssIDFdKSkgDQogICAgbXNlX2xzdCRjaXNzYSA8LSBjKG1zZV9sc3QkY2lzc2EsDQogICAgICAgICAgICAgICAgICAgICAgIG1zZShmX3N1bSgxOm4pLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgciR0cmVuZCArIHIkc2Vzb25hbDEgKyByJHNlc29uYWwyKSkgDQogICAgDQogICAgDQogICAgDQogICAgDQogICAgcyA8LSBzc2EoZl9uLCBMKQ0KICAgICMgZSA8LSBlb3NzYShzLCAxOjEwLCBrID0gNikNCiAgICBlIDwtIGZvc3NhKHMpDQogICAgDQogICAgZ19zZXNvbmFsIDwtIGdyb3VwaW5nLmF1dG8oZSwgYmFzZSA9ICJlaWdlbiIsDQogICAgICAgICAgICAgICAgICAgICAgIGZyZXEuYmlucyA9IGxpc3QodHJlbmQgPSAxLzEwMDAsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWwyID0gYygxLzI1LCAxLzIzKSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsMSA9IGMoMS8xMywgMS8xMCkNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICApLA0KICAgICAgICAgICAgICAgICAgICAgICB0aHJlc2hvbGQgPSAwLjUpDQogICAgDQogICAgciA8LSByZWNvbnN0cnVjdChlLCBncm91cHM9YyhsaXN0KGV4cCA9IDEsIEMgPSAyKSwgZ19zZXNvbmFsKSkNCiAgICANCiAgICBtc2VfbHN0JHNzYSA8LSANCiAgICAgIGMobXNlX2xzdCRzc2EsIG1zZShmX3N1bSgxOm4pLCByJHRyZW5kICsgciRzZXNvbmFsMiArIHIkc2Vzb25hbDEpKQ0KIA0KICB9DQogIHJldHVybihtc2VfbHN0KQ0KfQ0KDQpyZXNfbXNlX3Rlc3QgPC0gbl9tc2VfdGVzdHMoMTAwMDApDQoNCmBgYA0KDQpgYGB7cn0NCiMg0J7RhtC10L3QutCwINC/0LvQvtGC0L3QvtGB0YLQuA0KZGVuc2l0eV9lc3RpbWF0ZV9jaXNzYSA8LSBkZW5zaXR5KHJlc19tc2VfdGVzdCRjaXNzYSkNCg0KIyDQn9C+0YHRgtGA0L7QtdC90LjQtSDQs9GA0LDRhNC40LrQsCDQv9C70L7RgtC90L7RgdGC0LgNCnBsb3QoZGVuc2l0eV9lc3RpbWF0ZV9jaXNzYSwgbWFpbiA9ICLQntGG0LXQvdC60LAg0L/Qu9C+0YLQvdC+0YHRgtC4IiwgDQogICAgIHhsYWIgPSAi0JfQvdCw0YfQtdC90LjQtSIsIHlsYWIgPSAi0J/Qu9C+0YLQvdC+0YHRgtGMIiwgDQogICAgIGNvbCA9ICJibHVlIiwgbHdkID0gMikNCg0KZGVuc2l0eV9lc3RpbWF0ZV9zc2EgPC0gZGVuc2l0eShyZXNfbXNlX3Rlc3Qkc3NhKQ0KDQojINCf0L7RgdGC0YDQvtC10L3QuNC1INCz0YDQsNGE0LjQutCwINC/0LvQvtGC0L3QvtGB0YLQuA0KcGxvdChkZW5zaXR5X2VzdGltYXRlX3NzYSwgbWFpbiA9ICLQntGG0LXQvdC60LAg0L/Qu9C+0YLQvdC+0YHRgtC4IiwgDQogICAgIHhsYWIgPSAi0JfQvdCw0YfQtdC90LjQtSIsIHlsYWIgPSAi0J/Qu9C+0YLQvdC+0YHRgtGMIiwgDQogICAgIGNvbCA9ICJibHVlIiwgbHdkID0gMikNCg0KcmVzX21zZV90ZXN0JGNpc3NhIHw+IHN1bW1hcnkoKQ0KcmVzX21zZV90ZXN0JGNpc3NhIHw+IHNkKCkNCnJlc19tc2VfdGVzdCRzc2EgfD4gc3VtbWFyeSgpDQpyZXNfbXNlX3Rlc3Qkc3NhIHw+IHNkKCkNCmBgYA0KDQojIyDQmtCw0Log0LLRi9C/0L7Qu9C90Y/QtdGC0YHRjyDRgNCw0YHRiNC40YDQtdC90LjQtSDRgNGP0LTQsA0KDQpgYGB7cn0NCklQX3ZhbHVlc19zbGljZSB8PiBleHRlbmQoMTkyKSB8Pg0KICBwbG90KHR5cGU9ImwiLCBsd2QgPSAzLCB5bGFiPSLQl9C90LDRh9C10L3QuNGPIiwgeGxhYiA9ICLQmNC90LTQtdC60YHRiyIsIG1haW49ItCg0LDRgdGI0LjRgNC10L3QuNC1INCy0YDQtdC80LXQvdC90L7Qs9C+INGA0Y/QtNCwIElQIHZhbHVlcyIpDQpsaW5lcygoMTkyOihsZW5ndGgoSVBfdmFsdWVzX3NsaWNlKSArIDE5MiAtMSkpICsgMSwgSVBfdmFsdWVzX3NsaWNlLCB0eXBlPSJsIiwgY29sPSJyZWQiKQ0KDQpgYGANCg0KYGBge3J9DQpuIDwtIDk2KjIgKyA2DQp4IDwtIDA6KG4tMSkNCnkgPC0gc2luKDIqcGkvMTIgKiB4KQ0KTCA8LSA5Nis2DQpwbG90KHkgfD4gZXh0ZW5kKEwpLCB0eXBlPSJsIiwgbHdkID0gNCwgeWxhYj0i0JfQvdCw0YfQtdC90LjRjyIsIHhsYWIgPSAi0JjQvdC00LXQutGB0YsiLCBtYWluPSLQoNCw0YHRiNC40YDQtdC90LjQtSDQstGA0LXQvNC10L3QvdC+0LPQviDRgNGP0LTQsCBzaW4iKQ0KbGluZXMoKHgrTCsxKSwgeSwgdHlwZT0ibCIsIGNvbD0icmVkIiwgbHdkID0gMikNCmBgYA0KDQojIyBDaVNTQSDRh9C10YDQtdC3INCk0YPRgNGM0LUNCg0KIyMjIElQX3ZhbHVlcw0KDQpgYGB7cn0NCmNpc3NhX2xpa2VfZm91cmllcl90cmFuc2Zvcm0gPC0gZnVuY3Rpb24odHMsIEwpew0KICByZWNvbnN0cnVjdF9mZnQgPC0gZnVuY3Rpb24oeCwgeSwgZnJlcXVlbmNpZXMpIHsNCiAgICBmZnRfeSA8LSBmZnQoeSkNCiAgDQogICAgYW1wbGl0dWRlcyA8LSBNb2QoZmZ0X3kpDQogICAgcGhhc2VzIDwtIEFyZyhmZnRfeSkNCiAgICANCiAgICByZWNvbnN0cnVjdGVkIDwtIG1hdHJpeCgwLCBsZW5ndGgoYW1wbGl0dWRlcyksIGxlbmd0aCh4KSkNCiAgICBuIDwtIGxlbmd0aChhbXBsaXR1ZGVzKQ0KICAgIGZvciAoaSBpbiAxOihsZW5ndGgoYW1wbGl0dWRlcykpKSB7DQogICAgICByZWNvbnN0cnVjdGVkW2ksIF0gPC0NCiAgICAgICAgYW1wbGl0dWRlc1tpXSAqIA0KICAgICAgICBjb3MoMiAqIHBpICogZnJlcXVlbmNpZXNbaV0gKiAoeCkgKyBwaGFzZXNbaV0pIC8NCiAgICAgICAgbg0KICAgIH0NCiAgICByZXR1cm4obGlzdCgNCiAgICAgIHRzID0gcmVjb25zdHJ1Y3RlZCwNCiAgICAgIGZyZXF1ZW5jaWVzID0gZnJlcXVlbmNpZXMNCiAgICAgICkpDQogIH0NCiAgDQogIG4gPC0gbGVuZ3RoKHRzKQ0KICB4IDwtIDA6KG4tMSkNCiAgTCA8LSBMDQogIGZyZXF1ZW5jaWVzIDwtICgwOihMLTEpKSAvIEwNCiAgeSA8LSB0cw0KICB5X21haW4gPC0geQ0KICB4X21haW4gPC0geA0KICANCiAgWCA8LSBoYW5rZWwoeSwgTCkNCiAgSyA8LSBkaW0oWClbMl0NCiAgcmVzIDwtIGxpc3QoKQ0KICBmb3IgKGkgaW4gMTpLKXsNCiAgICB5IDwtIFhbLCBpXQ0KICAgIHggPC0geF9tYWluWzE6KDEgKyBMIC0gMSldDQogICAgcmVzW1tpXV0gPC0gcmVjb25zdHJ1Y3RfZmZ0KHgsIHksIGZyZXF1ZW5jaWVzKSR0cw0KICB9DQogIA0KICAjIGZvciAoaSBpbiAxOkwpew0KICAjICAgcGxvdCh4LCByZXNbW2ldXVs5LCBdKQ0KICAjIH0NCiAgDQogIHJlc19tdWx0IDwtIHJlcw0KICAjIHJlcw0KICANCiAgYXZlcmFnaW5nIDwtIGZ1bmN0aW9uKHJlc19jb21wX3dpc2VfbXVsdCl7DQogICAgSyA8LSBkaW0oWClbMl0NCiAgICBjb3VudGVycyA8LSByZXAoMCwgbikNCiAgICByZXMgPC0gbWF0cml4KDAsIG5jb2wgPSBuLCBucm93ID0gTCkNCiAgICBmb3IgKGkgaW4gMTpsZW5ndGgocmVzX2NvbXBfd2lzZV9tdWx0KSl7DQogICAgICByZXNbLCBpOihpK0wtMSldIDwtIHJlc1ssIGk6KGkrTC0xKV0gKyByZXNfY29tcF93aXNlX211bHRbW2ldXQ0KICAgICAgY291bnRlcnNbaTooaStMLTEpXSA8LSBjb3VudGVyc1tpOihpK0wtMSldICsgMQ0KICAgIH0NCiAgICBmb3IgKGkgaW4gMTpuKXsNCiAgICAgIHJlc1ssIGldIDwtIHJlc1ssIGldIC8gY291bnRlcnNbaV0NCiAgICB9DQogICAgcmVzDQogIH0NCiAgDQogIGF2ciA8LSBhdmVyYWdpbmcocmVzX211bHQpDQogIA0KICBncm91cF9ieV9lbGVtZW50YXJ5X2ZyZXFfZm91cmVpciA8LSBmdW5jdGlvbihyZXNfYXZlcmFnZWQpew0KICAgIG5mMiA8LSAwDQogICAgaWYgKEwgJSUgMikgew0KICAgICAgbmYyIDwtIChMICsgMSkgLyAyIC0gMQ0KICAgIH0gZWxzZSB7DQogICAgICBuZjIgPC0gTCAvIDIgLSAxDQogICAgfQ0KICAgIG5mdCA8LSBuZjIgKyBhYnMoKEwgJSUgMikgLSAyKQ0KICAgIA0KICAgIFogPC0gbWF0cml4KDAsIG5jb2wgPSBuZnQsIG5yb3cgPSBuKQ0KICAgIA0KICAgICMgcHJpbnQoWiB8PiBkaW0oKSkNCiAgICAjIHByaW50KHJlc19hdmVyYWdlZCB8PiBkaW0oKSkNCiAgICANCiAgICBaWywgMV0gPC0gcmVzX2F2ZXJhZ2VkWzEsIF0NCiAgICBmb3IgKGsgaW4gMTpuZjIpIHsNCiAgICAgIFpbLCBrICsgMV0gPC0gcmVzX2F2ZXJhZ2VkW2sgKyAxLCBdICsgcmVzX2F2ZXJhZ2VkW0wgKyAyIC0gKGsgKyAxKSwgXQ0KICAgIH0NCiAgICBpZiAoTCAlJSAyICE9IDApIHsNCiAgICAgIFpbLCBuZnRdIDwtIHJlc19hdmVyYWdlZFtuZnQsIF0NCiAgICB9DQogICAgDQogICAgDQogICAgcmV0dXJuKGxpc3QoDQogICAgICB0X3NlcmllcyA9IFosDQogICAgICBmcmVxID0gKDA6ZGltKFopWzJdKS9MDQogICAgKSkNCiAgfQ0KDQoNCiAgcnMgPC0gZ3JvdXBfYnlfZWxlbWVudGFyeV9mcmVxX2ZvdXJlaXIoYXZyKQ0KICByZXR1cm4ocnMpDQp9DQoNCmBgYA0KDQpgYGB7cn0NCmRhdGFfc2xpY2UgPC0gMTo1MzcNCmRhdGVzX3NsaWNlIDwtIGRhdGVzW2RhdGFfc2xpY2VdDQpJUF92YWx1ZXNfc2xpY2UgPC0gSVBfdmFsdWVzW2RhdGFfc2xpY2VdDQplcHMgPC0gMS8xOTMNCg0KDQpjIDwtIGNpcmN1bGFudF9TU0EoSVBfdmFsdWVzX3NsaWNlLCBMID0gMTkyLCBleHRlbmRfZmxhZyA9IEZBTFNFKQ0KciA8LSBjJHRfc2VyaWVzDQoNCmNfZnQgPC0gY2lzc2FfbGlrZV9mb3VyaWVyX3RyYW5zZm9ybShJUF92YWx1ZXNfc2xpY2UsIEwgPSAxOTIpDQpyX2Z0IDwtIGNfZnQkdF9zZXJpZXMNCg0KZm9yIChpIGluIDE6ZGltKHIpWzJdKXsNCiAgcGxvdChkYXRhX3NsaWNlLCByX2Z0WywgaV0sIGNvbD0gInJlZCIsIHR5cGUgPSAibCIsIGx3ZCA9IDIpDQogIGxpbmVzKGRhdGFfc2xpY2UsIHJbLCBpXSkNCn0NCmBgYA0KDQojIyMg0KHRgNCw0LLQvdC10L3QuNC1INGA0LDQt9C70L7QttC10L3QuNC5INCy0YHQtdCz0L4g0LLRgNC10LzQtdC90L3QvtCz0L4g0YDRj9C00LAg0YfQtdGA0LXQtyDQvNC10YLQvtC0INCk0YPRgNGM0LUsIFNTQSwgYXV0b19TU0EsIENpU1NBINC4IENpU1NBINGBINGA0LDRgdGI0LjRgNC10L3QuNC10Lwg0YDRj9C00LANCg0KYGBge3J9DQpyZWNvbnN0cnVjdF9mZnQgPC0gZnVuY3Rpb24oeF9pbml0LCB5X2luaXQsIGV4dGVuZF9mbGFnID0gRkFMU0UpIHsNCiAgICB4IDwtIHhfaW5pdA0KICAgIHkgPC0geV9pbml0DQogICAgTiA8LSBsZW5ndGgoeV9pbml0KQ0KICAgIEggPC0gMA0KICAgIGlmIChleHRlbmRfZmxhZyA9PSBUUlVFKXsNCiAgICAgIEggPC0gbGVuZ3RoKHkpICUvJSAyDQogICAgICB5IDwtIGV4dGVuZCh5LCBIKQ0KICAgICAgeCA8LSAwOihsZW5ndGgoeSkgLSAxKQ0KICAgIH0NCiAgICANCiAgICBmcmVxdWVuY2llcyA8LSAoMDoobGVuZ3RoKHgpLTEpKSAvIGxlbmd0aCh4KQ0KICAgIGZmdF95IDwtIGZmdCh5KQ0KICAgIA0KICAgIGFtcGxpdHVkZXMgPC0gTW9kKGZmdF95KQ0KICAgIHBoYXNlcyA8LSBBcmcoZmZ0X3kpDQogICAgDQogICAgcmVjb25zdHJ1Y3RlZCA8LSBtYXRyaXgoMCwgbGVuZ3RoKGFtcGxpdHVkZXMpLCBsZW5ndGgoeCkpDQogICAgbiA8LSBsZW5ndGgoYW1wbGl0dWRlcykNCiAgICBMIDwtIG4NCiAgICBmb3IgKGkgaW4gMToobGVuZ3RoKGFtcGxpdHVkZXMpKSkgew0KICAgICAgcmVjb25zdHJ1Y3RlZFtpLCBdIDwtDQogICAgICAgIGFtcGxpdHVkZXNbaV0gKiANCiAgICAgICAgY29zKDIgKiBwaSAqIGZyZXF1ZW5jaWVzW2ldICogKHgpICsgcGhhc2VzW2ldKSAvDQogICAgICAgIG4NCiAgICB9DQogICAgDQogICAgDQogICAgDQogIA0KICAgIGdyb3VwX2J5X2VsZW1lbnRhcnlfZnJlcV9mb3VyZWlyIDwtIGZ1bmN0aW9uKHJlc19hdmVyYWdlZCl7DQogICAgICBuZjIgPC0gMA0KICAgICAgaWYgKEwgJSUgMikgew0KICAgICAgICBuZjIgPC0gKEwgKyAxKSAvIDIgLSAxDQogICAgICB9IGVsc2Ugew0KICAgICAgICBuZjIgPC0gTCAvIDIgLSAxDQogICAgICB9DQogICAgICBuZnQgPC0gbmYyICsgYWJzKChMICUlIDIpIC0gMikNCiAgICAgIA0KICAgICAgWiA8LSBtYXRyaXgoMCwgbmNvbCA9IG5mdCwgbnJvdyA9IG4pDQogICAgICANCiAgICAgICMgcHJpbnQoWiB8PiBkaW0oKSkNCiAgICAgICMgcHJpbnQocmVzX2F2ZXJhZ2VkIHw+IGRpbSgpKQ0KICAgICAgDQogICAgICBaWywgMV0gPC0gcmVzX2F2ZXJhZ2VkWzEsIF0NCiAgICAgIGZvciAoayBpbiAxOm5mMikgew0KICAgICAgICBaWywgayArIDFdIDwtIHJlc19hdmVyYWdlZFtrICsgMSwgXSArIHJlc19hdmVyYWdlZFtMICsgMiAtIChrICsgMSksIF0NCiAgICAgIH0NCiAgICAgIGlmIChMICUlIDIgIT0gMCkgew0KICAgICAgICBaWywgbmZ0XSA8LSByZXNfYXZlcmFnZWRbbmZ0LCBdDQogICAgICB9DQogICAgICANCiAgICAgIA0KICAgICAgcmV0dXJuKGxpc3QoDQogICAgICAgIHRfc2VyaWVzID0gWlsoSCsxKTooTitIKSwgXSwNCiAgICAgICAgZnJlcSA9ICgwOihkaW0oWilbMl0tMSkpL0wNCiAgICAgICkpDQogICAgfQ0KICANCiAgDQogICAgcnMgPC0gZ3JvdXBfYnlfZWxlbWVudGFyeV9mcmVxX2ZvdXJlaXIocmVjb25zdHJ1Y3RlZCkNCiAgICANCiAgICANCiAgICByZXR1cm4obGlzdCgNCiAgICAgIHRfc2VyaWVzID0gcnMkdF9zZXJpZXMsDQogICAgICBmcmVxID0gcnMkZnJlcQ0KICAgICAgKSkNCiAgfQ0KYGBgDQoNCiMjIyMg0JjQtNC10LDQu9GM0L3Ri9C5INGB0LvRg9GH0LDQuSDQtNC70Y8gQ2lTU0Eg0LggRm91cmllcg0KDQpgYGB7cn0NCm4gPC0gOTYqMg0KTCA8LSA5Ng0KeCA8LSAwOihuLTEpDQp5MSA8LSBzaW4oMipwaS8xMiAqIHgpDQp5MiA8LSBjb3MoMipwaS8zICogeCkvMg0KeSA8LSB5MSArIHkyDQpYIDwtIGhhbmtlbCh5LCBMID0gTCkNCmVwcyA8LSAxLyhuKzEpDQoNCnNfc3NhIDwtIHNzYSh5WzE6KG4tMSldLCBMKQ0Kcl9zc2EgPC0gcmVjb25zdHJ1Y3Qoc19zc2EsIGdyb3VwcyA9IGxpc3QoDQogIEYxID0gYygxLCAyKSwNCiAgRjIgPSBjKDMsIDQpDQopKQ0KIyByX3NzYSA8LSByZWNvbnN0cnVjdChzX3NzYSwgZ3JvdXBzPWxpc3QoDQojICAgc2Vzb25hbF9zaW4gPSBjKDEsIDIpLA0KIyAgIHNlc29uYWxfY29zID0gYygzLCA0KQ0KIyApKQ0KIyBwbG90KHgsIHJfc3NhJEYxLCB0eXBlPSJsIikNCiMgcGxvdCh4LCByX3NzYSRGMiwgdHlwZT0gImwiKQ0KIyBwbG90KHdjb3Ioc19zc2EsIGdyb3VwcyA9IDE6MTApLCBzY2FsZXMgPSBsaXN0KGF0ID0gYygxMCwgMjAsIDMwKSkpDQplX3NzYSA8LSBlb3NzYV9uZXcoc19zc2EsIG5lc3RlZC5ncm91cHMgPSBsaXN0KDE6NCksIGNsdXN0X3R5cGUgPSAiZGlzdGFuY2UiKQ0KZ19zZXNvbmFsX2UgPC0gZ3JvdXBpbmcuYXV0byhlX3NzYSwgYmFzZSA9ICJlaWdlbiIsDQogICAgICAgICAgICAgICAgICAgICAgIGZyZXEuYmlucyA9IGxpc3QoDQogICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9zaW4gPSBjKDEvMTItZXBzLCAxLzEyK2VwcyksDQogICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvMy1lcHMsIDEvMytlcHMpDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKSwNCiAgICAgICAgICAgICAgICAgICAgICAgdGhyZXNob2xkID0gMC41KQ0Kcl9zc2FfZSA8LSByZWNvbnN0cnVjdChlX3NzYSwgZ3JvdXBzPWdfc2Vzb25hbF9lKQ0KIyBwbG90KHgsIHJfc3NhX2Ukc2Vzb25hbF9zaW4pDQojIHBsb3QoeCwgcl9zc2FfZSRzZXNvbmFsX2NvcykNCg0KDQoNCnJfZmZ0IDwtIHJlY29uc3RydWN0X2ZmdCh4LCB5KQ0Kcl9mZnRfZ3JvdXBlZCA8LSBncm91cGluZ19jaXNzYShyX2ZmdCwNCiAgICAgICAgICAgICAgICAgICAgZ3JvdXBzID0gbGlzdCgNCiAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX3NpbiA9IGMoMS8xMi1lcHMsIDEvMTIrZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX2NvcyA9IGMoMS8zLWVwcywgMS8zK2VwcykNCiAgICAgICAgICAgICAgICAgICAgKQ0KICAgICAgICAgICAgICAgICAgICApJHRfc2VyaWVzDQoNCnJfZmZ0X2V4dGVuZGVkIDwtIHJlY29uc3RydWN0X2ZmdCh4LCB5LCBUUlVFKQ0Kcl9mZnRfZ3JvdXBlZF9leHRlbmRlZCA8LSBncm91cGluZ19jaXNzYShyX2ZmdF9leHRlbmRlZCwNCiAgICAgICAgICAgICAgICAgICAgZ3JvdXBzID0gbGlzdCgNCiAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX3NpbiA9IGMoMS8xMi1lcHMsIDEvMTIrZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX2NvcyA9IGMoMS8zLWVwcywgMS8zK2VwcykNCiAgICAgICAgICAgICAgICAgICAgKQ0KICAgICAgICAgICAgICAgICAgICApJHRfc2VyaWVzDQoNCiMgcl9mZnRfZ3JvdXBlZCRzZXNvbmFsX3NpbiB8PiBsZW5ndGgoKQ0KDQojIHBsb3QoeCwgcl9mZnRfZ3JvdXBlZCRzZXNvbmFsX3NpbikNCiMgcGxvdCh4LCByX2ZmdF9ncm91cGVkJHNlc29uYWxfY29zKQ0KIyBwbG90KHgsIHJfZmZ0X2dyb3VwZWQkcmVzaWR1YWxzKQ0KDQoNCnJfY2lzc2EgPC0gY2lyY3VsYW50X1NTQSh5LCBMKQ0Kcl9jaXNzYV9ncm91cGVkIDwtIGdyb3VwaW5nX2Npc3NhKHJfY2lzc2EsDQogICAgICAgICAgICAgICAgICAgIGdyb3VwcyA9IGxpc3QoDQogICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9zaW4gPSBjKDEvMTItZXBzLCAxLzEyK2VwcyksDQogICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvMy1lcHMsIDEvMytlcHMpDQogICAgICAgICAgICAgICAgICAgICkNCiAgICAgICAgICAgICAgICAgICAgKSR0X3Nlcmllcw0KDQoNCnJfY2lzc2FfZXh0IDwtIGNpcmN1bGFudF9TU0EoeSwgTCwgZXh0ZW5kX2ZsYWcgPSBUUlVFKQ0Kcl9jaXNzYV9ncm91cGVkX2V4dCA8LSBncm91cGluZ19jaXNzYShyX2Npc3NhX2V4dCwNCiAgICAgICAgICAgICAgICAgICAgZ3JvdXBzID0gbGlzdCgNCiAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX3NpbiA9IGMoMS8xMi1lcHMsIDEvMTIrZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX2NvcyA9IGMoMS8zLWVwcywgMS8zK2VwcykNCiAgICAgICAgICAgICAgICAgICAgKQ0KICAgICAgICAgICAgICAgICAgICApJHRfc2VyaWVzDQoNCiMgcGxvdCh4LCByX2Npc3NhX2dyb3VwZWQkc2Vzb25hbF9zaW4pDQojIHBsb3QoeCwgcl9jaXNzYV9ncm91cGVkJHNlc29uYWxfY29zKQ0KIyBwbG90KHgsIHJfY2lzc2FfZ3JvdXBlZCRyZXNpZHVhbHMpDQoNCmxpYnJhcnkoeHRhYmxlKQ0KDQojINCo0LDQsyAyOiDQodC+0LfQtNCw0L3QuNC1INC/0YDQuNC80LXRgNCwINC00LDQvdC90YvRhQ0KZGF0YSA8LSBkYXRhLmZyYW1lKA0KICDQnNC10YLQvtC0ID0gYygiU1NBIiwgIlNTQSBFT1NTQSIsIkZvdXJpZXIiLCAiQ2lTU0EiLCAiQ2lTU0EgZXh0ZW5kZWQiLCAiRm91cmllciBleHRlbmRlZCIpLA0KICBzaW5fZXJyID0gYyAoMSwgMjAsIDIwLCAxLCAxLCAxKSwNCiAgY29zX2VyciA9IGMoMSwgMSwgMSwgMSwgMSwgMSksDQogIGFsbF9lcnIgPSBjKDEsIDEsIDEsIDEsIDEsIDEpDQopDQoNCmRhdGEkc2luX2VyclsxXSA8LSBtc2UoeTFbMToobi0xKV0sIHJfc3NhJEYxKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkgDQpkYXRhJGNvc19lcnJbMV0gPC0gbXNlKHkyWzE6KG4tMSldLCByX3NzYSRGMikgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGFsbF9lcnJbMV0gPC0gbXNlKHkxWzE6KG4tMSldICsgeTJbMToobi0xKV0sIHJfc3NhJEYxICsgcl9zc2EkRjIpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KDQpkYXRhJGNvc19lcnJbMl0gPC0gbXNlKHkxWzE6KG4tMSldLCByX3NzYV9lJHNlc29uYWxfc2luKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2VyclsyXSA8LSBtc2UoeTJbMToobi0xKV0sIHJfc3NhX2Ukc2Vzb25hbF9jb3MpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRhbGxfZXJyWzJdIDwtIG1zZSh5MVsxOihuLTEpXSArIHkyWzE6KG4tMSldLA0KICAgICAgICAgICAgICAgICAgICAgICByX3NzYV9lJHNlc29uYWxfc2luICsgcl9zc2FfZSRzZXNvbmFsX2NvcykgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQoNCg0KZGF0YSRjb3NfZXJyWzNdIDwtIG1zZSh5MSwgcl9mZnRfZ3JvdXBlZCRzZXNvbmFsX3NpbikgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJHNpbl9lcnJbM10gPC0gbXNlKHkyLCByX2ZmdF9ncm91cGVkJHNlc29uYWxfY29zKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkYWxsX2VyclszXSA8LSBtc2UoeTEgKyB5MiwNCiAgICAgICAgICAgICAgICAgICAgICAgcl9mZnRfZ3JvdXBlZCRzZXNvbmFsX3NpbiArIHJfZmZ0X2dyb3VwZWQkc2Vzb25hbF9jb3MNCiAgICAgICAgICAgICAgICAgICAgICAgKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KDQpkYXRhJGNvc19lcnJbNF0gPC0gbXNlKHkxLCByX2Npc3NhX2dyb3VwZWQkc2Vzb25hbF9zaW4pIHw+IA0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2Vycls0XSA8LSBtc2UoeTIsIHJfY2lzc2FfZ3JvdXBlZCRzZXNvbmFsX2NvcykgfD4gDQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRhbGxfZXJyWzRdIDwtIG1zZSh5MSArIHkyLA0KICAgICAgICAgICAgICAgICAgICAgICByX2Npc3NhX2dyb3VwZWQkc2Vzb25hbF9zaW4gKyByX2Npc3NhX2dyb3VwZWQkc2Vzb25hbF9jb3MNCiAgICAgICAgICAgICAgICAgICAgICAgKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KDQpkYXRhJGNvc19lcnJbNV0gPC0gbXNlKHkxLCByX2Npc3NhX2dyb3VwZWRfZXh0JHNlc29uYWxfc2luKSB8PiANCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJHNpbl9lcnJbNV0gPC0gbXNlKHkyLCByX2Npc3NhX2dyb3VwZWRfZXh0JHNlc29uYWxfY29zKSB8PiANCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGFsbF9lcnJbNV0gPC0gbXNlKHkxICsgeTIsDQogICAgICAgICAgICAgICAgICAgICAgIHJfY2lzc2FfZ3JvdXBlZF9leHQkc2Vzb25hbF9zaW4gKyByX2Npc3NhX2dyb3VwZWRfZXh0JHNlc29uYWxfY29zDQogICAgICAgICAgICAgICAgICAgICAgICkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQoNCg0KZGF0YSRjb3NfZXJyWzZdIDwtIG1zZSh5MSwgcl9mZnRfZ3JvdXBlZF9leHRlbmRlZCRzZXNvbmFsX3NpbikgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJHNpbl9lcnJbNl0gPC0gbXNlKHkyLCByX2ZmdF9ncm91cGVkX2V4dGVuZGVkJHNlc29uYWxfY29zKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkYWxsX2Vycls2XSA8LSBtc2UoeTEgKyB5MiwNCiAgICAgICAgICAgICAgICAgICAgICAgcl9mZnRfZ3JvdXBlZF9leHRlbmRlZCRzZXNvbmFsX3NpbiArIHJfZmZ0X2dyb3VwZWRfZXh0ZW5kZWQkc2Vzb25hbF9jb3MNCiAgICAgICAgICAgICAgICAgICAgICAgKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KDQp0YWJsZV9sYXRleCA8LSB4dGFibGUoZGF0YSwgY2FwdGlvbiA9ICJFeGFtcGxlIFRhYmxlIikNCg0KIyDQqNCw0LMgNDog0JLRi9Cy0L7QtCDRgtCw0LHQu9C40YbRiyDQsiBMYVRlWCDRhNCw0LnQuw0KcHJpbnQodGFibGVfbGF0ZXgsIGluY2x1ZGUucm93bmFtZXMgPSBGQUxTRSkNCmBgYA0KDQojIyMjINCY0LTQtdCw0LvRjNC90YvQuSDRgdC70YPRh9Cw0Lkg0YEg0YjRg9C80L7QvA0KDQpgYGB7cn0NCg0KZGF0YSA8LSBsaXN0KA0KICDQnNC10YLQvtC0ID0gYygiU1NBIiwiU1NBIEVPU1NBIiwiRm91cmllciIsICJDaVNTQSIsICJDaVNTQSBleHRlbmRlZCIsICJGb3VyaWVyIGV4dGVuZGVkIiksDQogIHNpbl9lcnIgPSBsaXN0KGxpc3QoKSwgbGlzdCgpLCBsaXN0KCksIGxpc3QoKSwgbGlzdCgpLCBsaXN0KCkpLA0KICBjb3NfZXJyID0gbGlzdChsaXN0KCksIGxpc3QoKSwgbGlzdCgpLCBsaXN0KCksIGxpc3QoKSwgbGlzdCgpKSwNCiAgYWxsX2VyciA9IGxpc3QobGlzdCgpLCBsaXN0KCksIGxpc3QoKSwgbGlzdCgpLCBsaXN0KCksIGxpc3QoKSkNCikNCg0KZm9yIChpIGluIDE6MTAwKXsNCiAgc2V0LnNlZWQoaSkNCiAgDQogIG4gPC0gOTYqMg0KICBMIDwtIDk2DQogIHggPC0gMDoobi0xKQ0KICB5MSA8LSBzaW4oMipwaS8xMiAqIHgpDQogIHkyIDwtIGNvcygyKnBpLzMgKiB4KS8yDQogIHkgPC0geTEgKyB5MiArIHJub3JtKG4sIDAsIDAuMSkNCiAgWCA8LSBoYW5rZWwoeSwgTCA9IEwpDQogIGVwcyA8LSAxLyhuKzEpDQogIA0KICBzX3NzYSA8LSBzc2EoeVsxOihuLTEpXSwgTCkNCiAgcl9zc2EgPC0gcmVjb25zdHJ1Y3Qoc19zc2EsIGdyb3VwcyA9IGxpc3QoDQogICAgRjEgPSBjKDEsIDIpLA0KICAgIEYyID0gYygzLCA0KQ0KICApKQ0KICAjIHJfc3NhIDwtIHJlY29uc3RydWN0KHNfc3NhLCBncm91cHM9bGlzdCgNCiAgIyAgIHNlc29uYWxfc2luID0gYygxLCAyKSwNCiAgIyAgIHNlc29uYWxfY29zID0gYygzLCA0KQ0KICAjICkpDQogICMgcGxvdCh4WzE6KG4tMSldLCByX3NzYSRGMSwgdHlwZSA9ICJsIikNCiAgIyBwbG90KHhbMToobi0xKV0sIHJfc3NhJEYyLCB0eXBlID0gImwiKQ0KICAjIHBsb3Qod2NvcihzX3NzYSwgZ3JvdXBzID0gMToxMCksIHNjYWxlcyA9IGxpc3QoYXQgPSBjKDEwLCAyMCwgMzApKSkNCiAgZV9zc2EgPC0gZW9zc2FfbmV3KHNfc3NhLCBuZXN0ZWQuZ3JvdXBzID0gbGlzdCgxOjQpLCBjbHVzdF90eXBlID0gImRpc3RhbmNlIikNCiAgZ19zZXNvbmFsX2UgPC0gZ3JvdXBpbmcuYXV0byhlX3NzYSwgYmFzZSA9ICJlaWdlbiIsDQogICAgICAgICAgICAgICAgICAgICAgICAgZnJlcS5iaW5zID0gbGlzdCgNCiAgICAgICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWxfc2luID0gYygxLzEyLWVwcywgMS8xMitlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvMy1lcHMsIDEvMytlcHMpDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICApLA0KICAgICAgICAgICAgICAgICAgICAgICAgIHRocmVzaG9sZCA9IDAuNSkNCiAgcl9zc2FfZSA8LSByZWNvbnN0cnVjdChlX3NzYSwgZ3JvdXBzPWdfc2Vzb25hbF9lKQ0KICAjIHBsb3QoeCwgcl9zc2FfZSRzZXNvbmFsX3NpbikNCiAgIyBwbG90KHgsIHJfc3NhX2Ukc2Vzb25hbF9jb3MpDQogIA0KICANCiAgDQogIHJfZmZ0IDwtIHJlY29uc3RydWN0X2ZmdCh4LCB5KQ0KICByX2ZmdF9ncm91cGVkIDwtIGdyb3VwaW5nX2Npc3NhKHJfZmZ0LA0KICAgICAgICAgICAgICAgICAgICAgIGdyb3VwcyA9IGxpc3QoDQogICAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX3NpbiA9IGMoMS8xMi1lcHMsIDEvMTIrZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWxfY29zID0gYygxLzMtZXBzLCAxLzMrZXBzKQ0KICAgICAgICAgICAgICAgICAgICAgICkNCiAgICAgICAgICAgICAgICAgICAgICApJHRfc2VyaWVzDQogIA0KICByX2ZmdF9leHRlbmRlZCA8LSByZWNvbnN0cnVjdF9mZnQoeCwgeSwgVFJVRSkNCiAgcl9mZnRfZ3JvdXBlZF9leHRlbmRlZCA8LSBncm91cGluZ19jaXNzYShyX2ZmdF9leHRlbmRlZCwNCiAgICAgICAgICAgICAgICAgICAgICBncm91cHMgPSBsaXN0KA0KICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9zaW4gPSBjKDEvMTItZXBzLCAxLzEyK2VwcyksDQogICAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX2NvcyA9IGMoMS8zLWVwcywgMS8zK2VwcykNCiAgICAgICAgICAgICAgICAgICAgICApDQogICAgICAgICAgICAgICAgICAgICAgKSR0X3Nlcmllcw0KICANCiAgIyByX2ZmdF9ncm91cGVkJHNlc29uYWxfc2luIHw+IGxlbmd0aCgpDQogIA0KICAjIHBsb3QoeCwgcl9mZnRfZ3JvdXBlZCRzZXNvbmFsX3NpbikNCiAgIyBwbG90KHgsIHJfZmZ0X2dyb3VwZWQkc2Vzb25hbF9jb3MpDQogICMgcGxvdCh4LCByX2ZmdF9ncm91cGVkJHJlc2lkdWFscykNCiAgDQogIA0KICByX2Npc3NhIDwtIGNpcmN1bGFudF9TU0EoeSwgTCkNCiAgcl9jaXNzYV9ncm91cGVkIDwtIGdyb3VwaW5nX2Npc3NhKHJfY2lzc2EsDQogICAgICAgICAgICAgICAgICAgICAgZ3JvdXBzID0gbGlzdCgNCiAgICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWxfc2luID0gYygxLzEyLWVwcywgMS8xMitlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvMy1lcHMsIDEvMytlcHMpDQogICAgICAgICAgICAgICAgICAgICAgKQ0KICAgICAgICAgICAgICAgICAgICAgICkkdF9zZXJpZXMNCiAgDQogIA0KICByX2Npc3NhX2V4dCA8LSBjaXJjdWxhbnRfU1NBKHksIEwsIGV4dGVuZF9mbGFnID0gVFJVRSkNCiAgcl9jaXNzYV9ncm91cGVkX2V4dCA8LSBncm91cGluZ19jaXNzYShyX2Npc3NhX2V4dCwNCiAgICAgICAgICAgICAgICAgICAgICBncm91cHMgPSBsaXN0KA0KICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9zaW4gPSBjKDEvMTItZXBzLCAxLzEyK2VwcyksDQogICAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX2NvcyA9IGMoMS8zLWVwcywgMS8zK2VwcykNCiAgICAgICAgICAgICAgICAgICAgICApDQogICAgICAgICAgICAgICAgICAgICAgKSR0X3Nlcmllcw0KICBkYXRhJGNvc19lcnJbWzFdXVtbaV1dIDwtIA0KICAgIG1pbihtc2UoeTFbMToobi0xKV0sIHJfc3NhJEYxKSwgbXNlKHkxWzE6KG4tMSldLCByX3NzYSRGMikpDQogIGRhdGEkc2luX2VycltbMV1dW1tpXV0gPC0NCiAgICBtaW4obXNlKHkyWzE6KG4tMSldLCByX3NzYSRGMSksIG1zZSh5MlsxOihuLTEpXSwgcl9zc2EkRjIpKQ0KICBkYXRhJGFsbF9lcnJbWzFdXVtbaV1dIDwtDQogICAgbWluKG1zZSh5MVsxOihuLTEpXSt5MlsxOihuLTEpXSwgcl9zc2EkRjErIHJfc3NhJEYyKSkNCiAgDQogIGRhdGEkY29zX2VycltbMl1dW1tpXV0gPC0gbXNlKHkxWzE6KG4tMSldLCByX3NzYV9lJHNlc29uYWxfc2luKQ0KICBkYXRhJHNpbl9lcnJbWzJdXVtbaV1dIDwtIG1zZSh5MlsxOihuLTEpXSwgcl9zc2FfZSRzZXNvbmFsX2NvcykNCiAgZGF0YSRhbGxfZXJyW1syXV1bW2ldXSA8LSBtc2UoeTFbMToobi0xKV0rIHkyWzE6KG4tMSldLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByX3NzYV9lJHNlc29uYWxfc2luICsgcl9zc2FfZSRzZXNvbmFsX2NvcykNCiAgDQogIA0KICBkYXRhJGNvc19lcnJbWzNdXVtbaV1dIDwtIG1zZSh5MSwgcl9mZnRfZ3JvdXBlZCRzZXNvbmFsX3NpbikNCiAgZGF0YSRzaW5fZXJyW1szXV1bW2ldXSA8LSBtc2UoeTIsIHJfZmZ0X2dyb3VwZWQkc2Vzb25hbF9jb3MpDQogIGRhdGEkYWxsX2VycltbM11dW1tpXV0gPC0gbXNlKHkxICsgeTIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJfZmZ0X2dyb3VwZWQkc2Vzb25hbF9jb3MgKyAgcl9mZnRfZ3JvdXBlZCRzZXNvbmFsX3NpbikNCiAgDQogIA0KICBkYXRhJGNvc19lcnJbWzRdXVtbaV1dIDwtIG1zZSh5MSwgcl9jaXNzYV9ncm91cGVkJHNlc29uYWxfc2luKQ0KICBkYXRhJHNpbl9lcnJbWzRdXVtbaV1dIDwtIG1zZSh5Miwgcl9jaXNzYV9ncm91cGVkJHNlc29uYWxfY29zKQ0KICBkYXRhJGFsbF9lcnJbWzRdXVtbaV1dIDwtIG1zZSh5MSArIHkyLA0KICAgICAgICAgICAgICAgICAgICAgICAgICByX2Npc3NhX2dyb3VwZWQkc2Vzb25hbF9zaW4gKyAgcl9jaXNzYV9ncm91cGVkJHNlc29uYWxfY29zDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICkNCiAgDQogIGRhdGEkY29zX2VycltbNV1dW1tpXV0gPC0gbXNlKHkxLCByX2Npc3NhX2dyb3VwZWRfZXh0JHNlc29uYWxfc2luKQ0KICBkYXRhJHNpbl9lcnJbWzVdXVtbaV1dIDwtIG1zZSh5Miwgcl9jaXNzYV9ncm91cGVkX2V4dCRzZXNvbmFsX2NvcykNCiAgZGF0YSRhbGxfZXJyW1s1XV1bW2ldXSA8LSBtc2UoeTEgKyB5MiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgcl9jaXNzYV9ncm91cGVkX2V4dCRzZXNvbmFsX3NpbiArIHJfY2lzc2FfZ3JvdXBlZF9leHQkc2Vzb25hbF9jb3MNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKQ0KICANCiAgZGF0YSRjb3NfZXJyW1s2XV1bW2ldXSA8LSBtc2UoeTEsIHJfZmZ0X2dyb3VwZWRfZXh0ZW5kZWQkc2Vzb25hbF9zaW4pDQogIGRhdGEkc2luX2VycltbNl1dW1tpXV0gPC0gbXNlKHkyLCByX2ZmdF9ncm91cGVkX2V4dGVuZGVkJHNlc29uYWxfY29zKQ0KICBkYXRhJGFsbF9lcnJbWzZdXVtbaV1dIDwtIG1zZSh5MSArIHkyLA0KICAgICAgICAgICAgICAgICAgICAgICAgICByX2ZmdF9ncm91cGVkX2V4dGVuZGVkJHNlc29uYWxfc2luICsgcl9mZnRfZ3JvdXBlZF9leHRlbmRlZCRzZXNvbmFsX2Nvcw0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICApDQp9DQpsaWJyYXJ5KHh0YWJsZSkNCg0KIyDQqNCw0LMgMjog0KHQvtC30LTQsNC90LjQtSDQv9GA0LjQvNC10YDQsCDQtNCw0L3QvdGL0YUNCmRhdGFfcHJldiA8LSBkYXRhDQoNCmRhdGEgPC0gZGF0YS5mcmFtZSgNCiAg0JzQtdGC0L7QtCA9IGMoIlNTQSIsICJTU0EgRU9TU0EiLCJGb3VyaWVyIiwgIkNpU1NBIiwgIkNpU1NBIGV4dGVuZGVkIiwgIkZvdXJpZXIgZXh0ZW5kZWQiKSwNCiAgc2luX2VyciA9IGMoMCwgMCwgMCwgMCwgMCwgMCksDQogIGNvc19lcnIgPSBjKDAsIDAsIDAsIDAsIDAsIDApLA0KICBhbGxfZXJyID0gYygwLCAwLCAwLCAwLCAwLCAwKQ0KKQ0KDQpkYXRhJGNvc19lcnJbMV0gPC0gbWVhbihkYXRhX3ByZXYkY29zX2VycltbMV1dIHw+IHVubGlzdCgpKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2VyclsxXSA8LSBtZWFuKGRhdGFfcHJldiRzaW5fZXJyW1sxXV18PiB1bmxpc3QoKSkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGFsbF9lcnJbMV0gPC0gbWVhbihkYXRhX3ByZXYkYWxsX2VycltbMV1dfD4gdW5saXN0KCkpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KDQpkYXRhJGNvc19lcnJbMl0gPC0gbWVhbihkYXRhX3ByZXYkY29zX2VycltbMl1dIHw+IHVubGlzdCgpKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2VyclsyXSA8LSBtZWFuKGRhdGFfcHJldiRzaW5fZXJyW1syXV18PiB1bmxpc3QoKSkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGFsbF9lcnJbMl0gPC0gbWVhbihkYXRhX3ByZXYkYWxsX2VycltbMl1dfD4gdW5saXN0KCkpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KDQoNCmRhdGEkY29zX2VyclszXSA8LSBtZWFuKGRhdGFfcHJldiRjb3NfZXJyW1szXV18PiB1bmxpc3QoKSkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJHNpbl9lcnJbM10gPC0gbWVhbihkYXRhX3ByZXYkc2luX2VycltbM11dfD4gdW5saXN0KCkpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRhbGxfZXJyWzNdIDwtIG1lYW4oZGF0YV9wcmV2JGFsbF9lcnJbWzNdXXw+IHVubGlzdCgpKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KDQpkYXRhJGNvc19lcnJbNF0gPC0gbWVhbihkYXRhX3ByZXYkY29zX2VycltbNF1dfD4gdW5saXN0KCkpIHw+IA0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2Vycls0XSA8LSBtZWFuKGRhdGFfcHJldiRzaW5fZXJyW1s0XV18PiB1bmxpc3QoKSkgfD4gDQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRhbGxfZXJyWzRdIDwtIG1lYW4oZGF0YV9wcmV2JGFsbF9lcnJbWzRdXXw+IHVubGlzdCgpKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KDQpkYXRhJGNvc19lcnJbNV0gPC0gbWVhbihkYXRhX3ByZXYkY29zX2VycltbNV1dfD4gdW5saXN0KCkpIHw+IA0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2Vycls1XSA8LSBtZWFuKGRhdGFfcHJldiRzaW5fZXJyW1s1XV18PiB1bmxpc3QoKSkgfD4gDQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRhbGxfZXJyWzVdIDwtIG1lYW4oZGF0YV9wcmV2JGFsbF9lcnJbWzVdXXw+IHVubGlzdCgpKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KZGF0YSRjb3NfZXJyWzZdIDwtIG1lYW4oZGF0YV9wcmV2JGNvc19lcnJbWzZdXXw+IHVubGlzdCgpKSB8PiANCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJHNpbl9lcnJbNl0gPC0gbWVhbihkYXRhX3ByZXYkc2luX2VycltbNl1dfD4gdW5saXN0KCkpIHw+IA0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkYWxsX2Vycls2XSA8LSBtZWFuKGRhdGFfcHJldiRhbGxfZXJyW1s2XV18PiB1bmxpc3QoKSkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQoNCg0KYGBgDQoNCmBgYHtyfQ0KZm9yIChpIGluIDE6Nil7DQogIGZvciAoaiBpbiAoaSk6Nil7DQogICAgeCA8LSBkYXRhX3ByZXYkY29zX2VycltbaV1dIHw+IHVubGlzdCgpDQogICAgeSA8LSBkYXRhX3ByZXYkY29zX2Vycltbal1dIHw+IHVubGlzdCgpDQogICAgdF90ZXN0X3Jlc3VsdCA8LSB0LnRlc3QoeCwgeSwgcGFpcmVkID0gVFJVRSkNCiAgICBwcmludChwYXN0ZSgiY29zLCAiLCBkYXRhJNCc0LXRgtC+0LRbaV0sICIgIiwgZGF0YSTQnNC10YLQvtC0W2pdLCAiLCBwLXZhbCA9ICIsIHRfdGVzdF9yZXN1bHQkcC52YWx1ZSkpDQogIH0NCn0NCg0KZm9yIChpIGluIDE6Nil7DQogIGZvciAoaiBpbiAoaSk6Nil7DQogICAgeCA8LSBkYXRhX3ByZXYkc2luX2VycltbaV1dIHw+IHVubGlzdCgpDQogICAgeSA8LSBkYXRhX3ByZXYkc2luX2Vycltbal1dIHw+IHVubGlzdCgpDQogICAgdF90ZXN0X3Jlc3VsdCA8LSB0LnRlc3QoeCwgeSwgcGFpcmVkID0gVFJVRSkNCiAgICBwcmludChwYXN0ZSgic2luLCAiLCBkYXRhJNCc0LXRgtC+0LRbaV0sICIgIiwgZGF0YSTQnNC10YLQvtC0W2pdLCAiLCBwLXZhbCA9ICIsIHRfdGVzdF9yZXN1bHQkcC52YWx1ZSkpDQogIH0NCn0NCg0KZm9yIChpIGluIDE6Nil7DQogIGZvciAoaiBpbiAoaSk6Nil7DQogICAgeCA8LSBkYXRhX3ByZXYkYWxsX2VycltbaV1dIHw+IHVubGlzdCgpDQogICAgeSA8LSBkYXRhX3ByZXYkYWxsX2Vycltbal1dIHw+IHVubGlzdCgpDQogICAgdF90ZXN0X3Jlc3VsdCA8LSB0LnRlc3QoeCwgeSwgcGFpcmVkID0gVFJVRSkNCiAgICBwcmludChwYXN0ZSgiYWxsX2VyciwgIiwgZGF0YSTQnNC10YLQvtC0W2ldLCAiICIsIGRhdGEk0JzQtdGC0L7QtFtqXSwgIiwgcC12YWwgPSAiLCB0X3Rlc3RfcmVzdWx0JHAudmFsdWUpKQ0KICB9DQp9DQoNCg0KdGFibGVfbGF0ZXggPC0geHRhYmxlKGRhdGEsIGNhcHRpb24gPSAiRXhhbXBsZSBUYWJsZSIpDQoNCiMg0KjQsNCzIDQ6INCS0YvQstC+0LQg0YLQsNCx0LvQuNGG0Ysg0LIgTGFUZVgg0YTQsNC50LsNCnByaW50KHRhYmxlX2xhdGV4LCBpbmNsdWRlLnJvd25hbWVzID0gRkFMU0UpDQoNCiMgbWVhbihkYXRhX3ByZXYkc2luX2VycltbMl1dIHw+IHVubGlzdCgpKSB8PiBwcmludCgpDQojIG1lYW4oZGF0YV9wcmV2JHNpbl9lcnJbWzFdXSB8PiB1bmxpc3QoKSkgfD4gcHJpbnQoKQ0KYGBgDQoNCiMjIyMg0JTQvtCx0LDQstC40Lwg0L3QtdC/0LXRgNC40L7QtNC40YfQvdC+0YHRgtGMDQoNCmBgYHtyfQ0KbiA8LSA5NioyDQp4IDwtIDA6KG4tMSkNCkwgPC0gOTYNCnkxIDwtIHNpbigyKnBpLzEyICogeCkNCnkyIDwtIGNvcygyKnBpLzMgKiB4KS8yDQp5MyA8LSBleHAoeC8xMDApICsgMQ0KeSA8LSB5MSArIHkyICsgeTMNCmVwcyA8LSAxLyhuKzEpDQoNCnNfc3NhIDwtIHNzYSh5WzE6KG4tMSldLCBMKQ0Kcl9zc2EgPC0gcmVjb25zdHJ1Y3Qoc19zc2EsIGdyb3Vwcz1saXN0KA0KICBlID0gYygxKSwNCiAgc2Vzb25hbF9zaW4gPSBjKDIsIDMpLA0KICBzZXNvbmFsX2NvcyA9IGMoNCwgNSkNCikpDQojIHBsb3QoeFsxOihuLTEpXSwgcl9zc2EkZSwgdHlwZSA9ICJsIikNCiMgcGxvdCh4WzE6KG4tMSldLCByX3NzYSRzZXNvbmFsX3NpbiwgdHlwZSA9ICJsIikNCiMgcGxvdCh4WzE6KG4tMSldLCByX3NzYSRzZXNvbmFsX2NvcywgdHlwZSA9ICJsIikNCiMgcGxvdCh3Y29yKHNfc3NhLCBncm91cHMgPSAxOjEwKSwgc2NhbGVzID0gbGlzdChhdCA9IGMoMTAsIDIwLCAzMCkpKQ0KZV9zc2EgPC0gZW9zc2FfbmV3KHNfc3NhLCBuZXN0ZWQuZ3JvdXBzID0gbGlzdCgxOjcpLCBjbHVzdF90eXBlID0gImRpc3RhbmNlIikNCmdfc2Vzb25hbF9lIDwtIGdyb3VwaW5nLmF1dG8oZV9zc2EsIGJhc2UgPSAiZWlnZW4iLA0KICAgICAgICAgICAgICAgICAgICAgICBmcmVxLmJpbnMgPSBsaXN0KA0KICAgICAgICAgICAgICAgICAgICAgICAgIGUgPSBjKDAsIDEvMTItZXBzLWVwcyksDQogICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9zaW4gPSBjKDEvMTItZXBzLCAxLzEyK2VwcyksDQogICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvMy1lcHMsIDEvMytlcHMpDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKSwNCiAgICAgICAgICAgICAgICAgICAgICAgdGhyZXNob2xkID0gMC41KQ0Kcl9zc2FfZSA8LSByZWNvbnN0cnVjdChlX3NzYSwgZ3JvdXBzPWdfc2Vzb25hbF9lKQ0KIyBwbG90KHgsIHJfc3NhX2Ukc2Vzb25hbF9zaW4pDQojIHBsb3QoeCwgcl9zc2FfZSRzZXNvbmFsX2NvcykNCg0KDQoNCnJfZmZ0IDwtIHJlY29uc3RydWN0X2ZmdCh4LCB5KQ0Kcl9mZnRfZ3JvdXBlZCA8LSBncm91cGluZ19jaXNzYShyX2ZmdCwNCiAgICAgICAgICAgICAgICAgICAgZ3JvdXBzID0gbGlzdCgNCiAgICAgICAgICAgICAgICAgICAgICBlID0gYygwLCAxLzEyLWVwcy1lcHMpLA0KICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWxfc2luID0gYygxLzEyLWVwcywgMS8xMitlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWxfY29zID0gYygxLzMtZXBzLCAxLzMrZXBzKQ0KICAgICAgICAgICAgICAgICAgICApDQogICAgICAgICAgICAgICAgICAgICkkdF9zZXJpZXMNCg0Kcl9mZnRfZXh0ZW5kZWQgPC0gcmVjb25zdHJ1Y3RfZmZ0KHgsIHksIFRSVUUpDQpyX2ZmdF9ncm91cGVkX2V4dGVuZGVkIDwtIGdyb3VwaW5nX2Npc3NhKHJfZmZ0X2V4dGVuZGVkLA0KICAgICAgICAgICAgICAgICAgICBncm91cHMgPSBsaXN0KA0KICAgICAgICAgICAgICAgICAgICAgIGUgPSBjKDAsIDEvMTItZXBzLWVwcyksDQogICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9zaW4gPSBjKDEvMTItZXBzLCAxLzEyK2VwcyksDQogICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvMy1lcHMsIDEvMytlcHMpDQogICAgICAgICAgICAgICAgICAgICkNCiAgICAgICAgICAgICAgICAgICAgKSR0X3Nlcmllcw0KDQojIHJfZmZ0X2dyb3VwZWQkc2Vzb25hbF9zaW4gfD4gbGVuZ3RoKCkNCg0KIyBwbG90KHgsIHJfZmZ0X2dyb3VwZWQkc2Vzb25hbF9zaW4pDQojIHBsb3QoeCwgcl9mZnRfZ3JvdXBlZCRzZXNvbmFsX2NvcykNCiMgcGxvdCh4LCByX2ZmdF9ncm91cGVkJHJlc2lkdWFscykNCg0KDQpyX2Npc3NhIDwtIGNpcmN1bGFudF9TU0EoeSwgTCkNCnJfY2lzc2FfZ3JvdXBlZCA8LSBncm91cGluZ19jaXNzYShyX2Npc3NhLA0KICAgICAgICAgICAgICAgICAgICBncm91cHMgPSBsaXN0KA0KICAgICAgICAgICAgICAgICAgICAgIGUgPSBjKDAsIDEvMTItZXBzLWVwcyksDQogICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9zaW4gPSBjKDEvMTItZXBzLCAxLzEyK2VwcyksDQogICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvMy1lcHMsIDEvMytlcHMpDQogICAgICAgICAgICAgICAgICAgICkNCiAgICAgICAgICAgICAgICAgICAgKSR0X3Nlcmllcw0KDQoNCnJfY2lzc2FfZXh0IDwtIGNpcmN1bGFudF9TU0EoeSwgTCwgZXh0ZW5kX2ZsYWcgPSBUUlVFKQ0Kcl9jaXNzYV9ncm91cGVkX2V4dCA8LSBncm91cGluZ19jaXNzYShyX2Npc3NhX2V4dCwNCiAgICAgICAgICAgICAgICAgICAgZ3JvdXBzID0gbGlzdCgNCiAgICAgICAgICAgICAgICAgICAgICBlID0gYygwLCAxLzEyLWVwcy1lcHMpLA0KICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWxfc2luID0gYygxLzEyLWVwcywgMS8xMitlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWxfY29zID0gYygxLzMtZXBzLCAxLzMrZXBzKQ0KICAgICAgICAgICAgICAgICAgICApDQogICAgICAgICAgICAgICAgICAgICkkdF9zZXJpZXMNCg0KIyBwbG90KHgsIHJfY2lzc2FfZ3JvdXBlZCRzZXNvbmFsX3NpbikNCiMgcGxvdCh4LCByX2Npc3NhX2dyb3VwZWQkc2Vzb25hbF9jb3MpDQojIHBsb3QoeCwgcl9jaXNzYV9ncm91cGVkJHJlc2lkdWFscykNCg0KbGlicmFyeSh4dGFibGUpDQoNCiMg0KjQsNCzIDI6INCh0L7Qt9C00LDQvdC40LUg0L/RgNC40LzQtdGA0LAg0LTQsNC90L3Ri9GFDQpkYXRhIDwtIGRhdGEuZnJhbWUoDQogINCc0LXRgtC+0LQgPSBjKCJTU0EiLCAiU1NBIEVPU1NBIiwiRm91cmllciIsICJDaVNTQSIsICJDaVNTQSBleHRlbmRlZCIsICJGb3VyaWVyIGV4dGVuZGVkIiksDQogIGVfZXJyID0gYygxLCAxLCAxLCAxLCAxLCAxKSwNCiAgc2luX2VyciA9IGMgKDEsIDIwLCAyMCwgMSwgMSwgMSksDQogIGNvc19lcnIgPSBjKDEsIDEsIDEsIDEsIDEsIDEpLA0KICBhbGxfZXJyID0gYygxLCAxLCAxLCAxLCAxLCAxKQ0KKQ0KDQpkYXRhJGNvc19lcnJbMV0gPC0gbXNlKHkxWzE6KG4tMSldLCByX3NzYSRzZXNvbmFsX3NpbikgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJHNpbl9lcnJbMV0gPC0gbXNlKHkyWzE6KG4tMSldLCByX3NzYSRzZXNvbmFsX2NvcykgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGVfZXJyWzFdIDwtIG1zZSh5M1sxOihuLTEpXSwgcl9zc2EkZSkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGFsbF9lcnJbMV0gPC0gbXNlKHkxWzE6KG4tMSldKyB5MlsxOihuLTEpXSArIHkzWzE6KG4tMSldLA0KICAgICAgICAgICAgICAgICAgICAgcl9zc2Ekc2Vzb25hbF9zaW4gKyByX3NzYSRzZXNvbmFsX2NvcyArIHJfc3NhJGUpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KDQpkYXRhJGNvc19lcnJbMl0gPC0gbXNlKHkxWzE6KG4tMSldLCByX3NzYV9lJHNlc29uYWxfc2luKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2VyclsyXSA8LSBtc2UoeTJbMToobi0xKV0sIHJfc3NhX2Ukc2Vzb25hbF9jb3MpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRlX2VyclsyXSA8LSBtc2UoeTNbMToobi0xKV0sIHJfc3NhX2UkZSkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGFsbF9lcnJbMl0gPC0gbXNlKHkxWzE6KG4tMSldKyB5MlsxOihuLTEpXSArIHkzWzE6KG4tMSldLA0KICAgICAgICAgICAgICAgICAgICAgcl9zc2FfZSRzZXNvbmFsX3NpbiArIHJfc3NhX2Ukc2Vzb25hbF9jb3MgKyByX3NzYV9lJGUNCiAgICAgICAgICAgICAgICAgICAgICAgKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KDQpkYXRhJGNvc19lcnJbM10gPC0gbXNlKHkxLCByX2ZmdF9ncm91cGVkJHNlc29uYWxfc2luKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2VyclszXSA8LSBtc2UoeTIsIHJfZmZ0X2dyb3VwZWQkc2Vzb25hbF9jb3MpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRlX2VyclszXSA8LSBtc2UoeTMsIHJfZmZ0X2dyb3VwZWQkZSkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGFsbF9lcnJbM10gPC0gbXNlKHkxICsgeTIgKyB5MywgDQogICAgICAgICAgICAgICAgICAgICAgIHJfZmZ0X2dyb3VwZWQkc2Vzb25hbF9zaW4gKyByX2ZmdF9ncm91cGVkJHNlc29uYWxfY29zICsgcl9mZnRfZ3JvdXBlZCRlKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KDQpkYXRhJGNvc19lcnJbNF0gPC0gbXNlKHkxLCByX2Npc3NhX2dyb3VwZWQkc2Vzb25hbF9zaW4pIHw+IA0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2Vycls0XSA8LSBtc2UoeTIsIHJfY2lzc2FfZ3JvdXBlZCRzZXNvbmFsX2NvcykgfD4gDQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRlX2Vycls0XSA8LSBtc2UoeTMsIHJfY2lzc2FfZ3JvdXBlZCRlKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkYWxsX2Vycls0XSA8LSBtc2UoeTEgKyB5MiArIHkzLCANCiAgICAgICAgICAgICAgICAgICAgICAgcl9jaXNzYV9ncm91cGVkJHNlc29uYWxfc2luICsgDQogICAgICAgICAgICAgICAgICAgICAgICAgcl9jaXNzYV9ncm91cGVkJHNlc29uYWxfY29zICsgDQogICAgICAgICAgICAgICAgICAgICAgICAgcl9jaXNzYV9ncm91cGVkJGUNCiAgICAgICAgICAgICAgICAgICAgICAgKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KZGF0YSRjb3NfZXJyWzVdIDwtIG1zZSh5MSwgcl9jaXNzYV9ncm91cGVkX2V4dCRzZXNvbmFsX3NpbikgfD4gDQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRzaW5fZXJyWzVdIDwtIG1zZSh5Miwgcl9jaXNzYV9ncm91cGVkX2V4dCRzZXNvbmFsX2NvcykgfD4gDQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRlX2Vycls1XSA8LSBtc2UoeTMsIHJfY2lzc2FfZ3JvdXBlZF9leHQkZSkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGFsbF9lcnJbNV0gPC0gbXNlKHkxICsgeTIgKyB5MywgDQogICAgICAgICAgICAgICAgICAgICAgIHJfY2lzc2FfZ3JvdXBlZF9leHQkc2Vzb25hbF9zaW4gKyANCiAgICAgICAgICAgICAgICAgICAgICAgICByX2Npc3NhX2dyb3VwZWRfZXh0JHNlc29uYWxfY29zICsNCiAgICAgICAgICAgICAgICAgICAgICAgICAgcl9jaXNzYV9ncm91cGVkX2V4dCRlDQogICAgICAgICAgICAgICAgICAgICAgICkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQoNCmRhdGEkY29zX2Vycls2XSA8LSBtc2UoeTEsIHJfZmZ0X2dyb3VwZWRfZXh0ZW5kZWQkc2Vzb25hbF9zaW4pIHw+IA0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2Vycls2XSA8LSBtc2UoeTIsIHJfZmZ0X2dyb3VwZWRfZXh0ZW5kZWQkc2Vzb25hbF9jb3MpIHw+IA0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkZV9lcnJbNl0gPC0gbXNlKHkzLCByX2ZmdF9ncm91cGVkX2V4dGVuZGVkJGUpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRhbGxfZXJyWzZdIDwtIG1zZSh5MSArIHkyICsgeTMsIA0KICAgICAgICAgICAgICAgICAgICAgICByX2ZmdF9ncm91cGVkX2V4dGVuZGVkJHNlc29uYWxfc2luICsNCiAgICAgICAgICAgICAgICAgICAgICAgICByX2ZmdF9ncm91cGVkX2V4dGVuZGVkJHNlc29uYWxfY29zICsNCiAgICAgICAgICAgICAgICAgICAgICAgICByX2ZmdF9ncm91cGVkX2V4dGVuZGVkJGUNCiAgICAgICAgICAgICAgICAgICAgICAgKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KDQoNCnRhYmxlX2xhdGV4IDwtIHh0YWJsZShkYXRhLCBjYXB0aW9uID0gIkV4YW1wbGUgVGFibGUiKQ0KDQojINCo0LDQsyA0OiDQktGL0LLQvtC0INGC0LDQsdC70LjRhtGLINCyIExhVGVYINGE0LDQudC7DQpwcmludCh0YWJsZV9sYXRleCwgaW5jbHVkZS5yb3duYW1lcyA9IEZBTFNFKQ0KYGBgDQoNCiMjIyMg0J3QtdC/0LXRgNC40L7QtNC40YfQvdC+0YHRgtGMINGBINGI0YPQvNC+0LwNCg0KYGBge3J9DQojIGRhdGEgPC0gZGF0YS5mcmFtZSgNCiMgICDQnNC10YLQvtC0ID0gYygiRm91cmllciIsICJDaVNTQSIsICJDaVNTQSDRgSDRgNCw0YHRiNC40YDQtdC90LjQtdC8INGA0Y/QtNCwIiksDQojICAgc2luX2VyciA9IGMgKDIwLCAyMCwgMjApLA0KIyAgIGNvc19lcnIgPSBjKDEsIDEsIDIwKSwNCiMgICBleHBfZXJyID0gYygxLCAxLCAyMCkNCiMgKQ0KZGF0YSA8LSBsaXN0KA0KICDQnNC10YLQvtC0ID0gYygiU1NBIiwgIlNTQSBFT1NTQSIsIkZvdXJpZXIiLCAiQ2lTU0EiLCAiQ2lTU0EgZXh0ZW5kZWQiLCAiRm91cmllciBleHRlbmRlZCIpLA0KICBzaW5fZXJyID0gbGlzdChsaXN0KCksIGxpc3QoKSwgbGlzdCgpLCBsaXN0KCksIGxpc3QoKSwgbGlzdCgpKSwNCiAgY29zX2VyciA9IGxpc3QobGlzdCgpLCBsaXN0KCksIGxpc3QoKSwgbGlzdCgpLCBsaXN0KCksIGxpc3QoKSksDQogIGV4cF9lcnIgPSBsaXN0KGxpc3QoKSwgbGlzdCgpLCBsaXN0KCksIGxpc3QoKSwgbGlzdCgpLCBsaXN0KCkpLA0KICBhbGxfZXJyID0gbGlzdChsaXN0KCksIGxpc3QoKSwgbGlzdCgpLCBsaXN0KCksIGxpc3QoKSwgbGlzdCgpKQ0KKQ0KDQpmb3IgKGkgaW4gMToxMDApew0KICBzZXQuc2VlZChpKQ0KICANCiAgbiA8LSA5NioyDQogIHggPC0gMDoobi0xKQ0KICBMIDwtIDk2DQogIHkxIDwtIHNpbigyKnBpLzEyICogeCkNCiAgeTIgPC0gY29zKDIqcGkvMyAqIHgpLzINCiAgeTMgPC0gZXhwKHgvMTAwKSArIDENCiAgeSA8LSB5MSArIHkyICsgeTMgKyBybm9ybShuLCAwLCAwLjEpDQogIGVwcyA8LSAxLyhuKzEpDQogIA0KICBzX3NzYSA8LSBzc2EoeVsxOihuLTEpXSwgTCkNCiAgcl9zc2EgPC0gcmVjb25zdHJ1Y3Qoc19zc2EsIGdyb3Vwcz1saXN0KA0KICAgIGUgPSAxLA0KICAgIHNlc29uYWxfc2luID0gYygyLCAzKSwNCiAgICBzZXNvbmFsX2NvcyA9IGMoNCwgNSkNCiAgKSkNCiAgDQogIA0KICBlX3NzYSA8LSBlb3NzYV9uZXcoc19zc2EsIG5lc3RlZC5ncm91cHMgPSBsaXN0KDE6NyksIGNsdXN0X3R5cGUgPSAiZGlzdGFuY2UiKQ0KICBnX3Nlc29uYWxfZSA8LSBncm91cGluZy5hdXRvKGVfc3NhLCBiYXNlID0gImVpZ2VuIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICBmcmVxLmJpbnMgPSBsaXN0KA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgZSA9IGMoMCwgMS8xMi1lcHMtZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWxfc2luID0gYygxLzEyLWVwcywgMS8xMitlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvMy1lcHMsIDEvMytlcHMpDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICApLA0KICAgICAgICAgICAgICAgICAgICAgICAgIHRocmVzaG9sZCA9IDAuNSkNCiAgcl9zc2FfZSA8LSByZWNvbnN0cnVjdChlX3NzYSwgZ3JvdXBzPWdfc2Vzb25hbF9lKQ0KICANCiAgDQogIA0KICByX2ZmdCA8LSByZWNvbnN0cnVjdF9mZnQoeCwgeSkNCiAgcl9mZnRfZ3JvdXBlZCA8LSBncm91cGluZ19jaXNzYShyX2ZmdCwNCiAgICAgICAgICAgICAgICAgICAgICBncm91cHMgPSBsaXN0KA0KICAgICAgICAgICAgICAgICAgICAgICAgZSA9IGMoMCwgMS8xMi1lcHMtZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWxfc2luID0gYygxLzEyLWVwcywgMS8xMitlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvMy1lcHMsIDEvMytlcHMpDQogICAgICAgICAgICAgICAgICAgICAgKQ0KICAgICAgICAgICAgICAgICAgICAgICkkdF9zZXJpZXMNCiAgDQogIHJfZmZ0X2V4dGVuZGVkIDwtIHJlY29uc3RydWN0X2ZmdCh4LCB5LCBUUlVFKQ0KICByX2ZmdF9ncm91cGVkX2V4dGVuZGVkIDwtIGdyb3VwaW5nX2Npc3NhKHJfZmZ0X2V4dGVuZGVkLA0KICAgICAgICAgICAgICAgICAgICAgIGdyb3VwcyA9IGxpc3QoDQogICAgICAgICAgICAgICAgICAgICAgICBlID0gYygwLCAxLzEyLWVwcy1lcHMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9zaW4gPSBjKDEvMTItZXBzLCAxLzEyK2VwcyksDQogICAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX2NvcyA9IGMoMS8zLWVwcywgMS8zK2VwcykNCiAgICAgICAgICAgICAgICAgICAgICApDQogICAgICAgICAgICAgICAgICAgICAgKSR0X3Nlcmllcw0KICANCiAgDQogIHJfY2lzc2EgPC0gY2lyY3VsYW50X1NTQSh5LCBMKQ0KICByX2Npc3NhX2dyb3VwZWQgPC0gZ3JvdXBpbmdfY2lzc2Eocl9jaXNzYSwNCiAgICAgICAgICAgICAgICAgICAgICBncm91cHMgPSBsaXN0KA0KICAgICAgICAgICAgICAgICAgICAgICAgZSA9IGMoMCwgMS8xMi1lcHMtZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWxfc2luID0gYygxLzEyLWVwcywgMS8xMitlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvMy1lcHMsIDEvMytlcHMpDQogICAgICAgICAgICAgICAgICAgICAgKQ0KICAgICAgICAgICAgICAgICAgICAgICkkdF9zZXJpZXMNCiAgDQogIA0KICByX2Npc3NhX2V4dCA8LSBjaXJjdWxhbnRfU1NBKHksIEwsIGV4dGVuZF9mbGFnID0gVFJVRSkNCiAgcl9jaXNzYV9ncm91cGVkX2V4dCA8LSBncm91cGluZ19jaXNzYShyX2Npc3NhX2V4dCwNCiAgICAgICAgICAgICAgICAgICAgICBncm91cHMgPSBsaXN0KA0KICAgICAgICAgICAgICAgICAgICAgICAgZSA9IGMoMCwgMS8xMi1lcHMtZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICAgIHNlc29uYWxfc2luID0gYygxLzEyLWVwcywgMS8xMitlcHMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvMy1lcHMsIDEvMytlcHMpDQogICAgICAgICAgICAgICAgICAgICAgKQ0KICAgICAgICAgICAgICAgICAgICAgICkkdF9zZXJpZXMNCiAgDQogIA0KICANCiAgZGF0YSRjb3NfZXJyW1sxXV1bW2ldXSA8LSBtc2UoeTFbMToobi0xKV0sIHJfc3NhJHNlc29uYWxfc2luKQ0KICBkYXRhJHNpbl9lcnJbWzFdXVtbaV1dIDwtIG1zZSh5MlsxOihuLTEpXSwgcl9zc2Ekc2Vzb25hbF9jb3MpDQogIGRhdGEkZXhwX2VycltbMV1dW1tpXV0gPC0gbXNlKHkzWzE6KG4tMSldLCByX3NzYSRlKQ0KICBkYXRhJGFsbF9lcnJbWzFdXVtbaV1dIDwtIG1zZSh5MVsxOihuLTEpXSArIHkyWzE6KG4tMSldICsgeTNbMToobi0xKV0sDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJfc3NhJHNlc29uYWxfc2luKw0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJfc3NhJHNlc29uYWxfY29zICsNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByX3NzYSRlDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICkNCiAgDQogIGRhdGEkY29zX2VycltbMl1dW1tpXV0gPC0gbXNlKHkxWzE6KG4tMSldLCByX3NzYV9lJHNlc29uYWxfc2luKQ0KICBkYXRhJHNpbl9lcnJbWzJdXVtbaV1dIDwtIG1zZSh5MlsxOihuLTEpXSwgcl9zc2FfZSRzZXNvbmFsX2NvcykNCiAgZGF0YSRleHBfZXJyW1syXV1bW2ldXSA8LSBtc2UoeTNbMToobi0xKV0sIHJfc3NhX2UkZSkNCiAgZGF0YSRhbGxfZXJyW1syXV1bW2ldXSA8LSBtc2UoeTFbMToobi0xKV0gKyB5MlsxOihuLTEpXSArIHkzWzE6KG4tMSldLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByX3NzYV9lJHNlc29uYWxfc2luKyANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByX3NzYV9lJHNlc29uYWxfY29zICsgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcl9zc2FfZSRlDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICkNCiAgDQogIA0KICAjIHByaW50KGRhdGEkc2luX2VycltbMl1dW1tpXV0pDQogIA0KICANCiAgZGF0YSRjb3NfZXJyW1szXV1bW2ldXSA8LSBtc2UoeTEsIHJfZmZ0X2dyb3VwZWQkc2Vzb25hbF9zaW4pDQogIGRhdGEkc2luX2VycltbM11dW1tpXV0gPC0gbXNlKHkyLCByX2ZmdF9ncm91cGVkJHNlc29uYWxfY29zKQ0KICBkYXRhJGV4cF9lcnJbWzNdXVtbaV1dIDwtIG1zZSh5Mywgcl9mZnRfZ3JvdXBlZCRlKQ0KICBkYXRhJGFsbF9lcnJbWzNdXVtbaV1dIDwtIG1zZSh5MSArIHkyICsgeTMsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJfZmZ0X2dyb3VwZWQkc2Vzb25hbF9zaW4gKw0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJfZmZ0X2dyb3VwZWQkc2Vzb25hbF9jb3MgKw0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJfZmZ0X2dyb3VwZWQkZQ0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICApDQogIA0KICANCiAgZGF0YSRjb3NfZXJyW1s0XV1bW2ldXSA8LSBtc2UoeTEsIHJfY2lzc2FfZ3JvdXBlZCRzZXNvbmFsX3NpbikNCiAgZGF0YSRzaW5fZXJyW1s0XV1bW2ldXSA8LSBtc2UoeTIsIHJfY2lzc2FfZ3JvdXBlZCRzZXNvbmFsX2NvcykNCiAgZGF0YSRleHBfZXJyW1s0XV1bW2ldXSA8LSBtc2UoeTMsIHJfY2lzc2FfZ3JvdXBlZCRlKQ0KICBkYXRhJGFsbF9lcnJbWzRdXVtbaV1dIDwtIG1zZSh5MSArIHkyICsgeTMsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJfY2lzc2FfZ3JvdXBlZCRzZXNvbmFsX3NpbiArDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcl9jaXNzYV9ncm91cGVkJHNlc29uYWxfY29zICsNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByX2Npc3NhX2dyb3VwZWQkZQ0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICApDQogIA0KICANCiAgZGF0YSRjb3NfZXJyW1s1XV1bW2ldXSA8LSBtc2UoeTEsIHJfY2lzc2FfZ3JvdXBlZF9leHQkc2Vzb25hbF9zaW4pDQogIGRhdGEkc2luX2VycltbNV1dW1tpXV0gPC0gbXNlKHkyLCByX2Npc3NhX2dyb3VwZWRfZXh0JHNlc29uYWxfY29zKQ0KICBkYXRhJGV4cF9lcnJbWzVdXVtbaV1dIDwtIG1zZSh5Mywgcl9jaXNzYV9ncm91cGVkX2V4dCRlKQ0KICBkYXRhJGFsbF9lcnJbWzVdXVtbaV1dIDwtIG1zZSh5MSArIHkyICsgeTMsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJfY2lzc2FfZ3JvdXBlZF9leHQkc2Vzb25hbF9zaW4gKyANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByX2Npc3NhX2dyb3VwZWRfZXh0JHNlc29uYWxfY29zICsNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByX2Npc3NhX2dyb3VwZWRfZXh0JGUNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKQ0KICANCiAgZGF0YSRjb3NfZXJyW1s2XV1bW2ldXSA8LSBtc2UoeTEsIHJfZmZ0X2dyb3VwZWRfZXh0ZW5kZWQkc2Vzb25hbF9zaW4pDQogIGRhdGEkc2luX2VycltbNl1dW1tpXV0gPC0gbXNlKHkyLCByX2ZmdF9ncm91cGVkX2V4dGVuZGVkJHNlc29uYWxfY29zKQ0KICBkYXRhJGV4cF9lcnJbWzZdXVtbaV1dIDwtIG1zZSh5Mywgcl9mZnRfZ3JvdXBlZF9leHRlbmRlZCRlKQ0KICBkYXRhJGFsbF9lcnJbWzZdXVtbaV1dIDwtIG1zZSh5MSArIHkyICsgeTMsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJfZmZ0X2dyb3VwZWRfZXh0ZW5kZWQkc2Vzb25hbF9zaW4gKw0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJfZmZ0X2dyb3VwZWRfZXh0ZW5kZWQkc2Vzb25hbF9jb3MgKw0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJfZmZ0X2dyb3VwZWRfZXh0ZW5kZWQkZQ0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICApDQp9DQpsaWJyYXJ5KHh0YWJsZSkNCiMgZGF0YSRzaW5fZXJyW1syXV0NCiMg0KjQsNCzIDI6INCh0L7Qt9C00LDQvdC40LUg0L/RgNC40LzQtdGA0LAg0LTQsNC90L3Ri9GFDQpkYXRhX3ByZXYgPC0gZGF0YQ0KZGF0YSA8LSBkYXRhLmZyYW1lKA0KICDQnNC10YLQvtC0ID0gYygiU1NBIiwgIlNTQSBFT1NTQSIsIkZvdXJpZXIiLCAiQ2lTU0EiLCAiQ2lTU0EgZXh0ZW5kZWQiLCAiRm91cmllciBleHRlbmRlZCIpLA0KICBleHBfZXJyID0gYygwLCAwLCAwLCAwLCAwLCAwKSwNCiAgc2luX2VyciA9IGMoMCwgMCwgMCwgMCwgMCwgMCksDQogIGNvc19lcnIgPSBjKDAsIDAsIDAsIDAsIDAsIDApLA0KICBhbGxfZXJyID0gYygwLCAwLCAwLCAwLCAwLCAwKQ0KKQ0KDQpkYXRhJGNvc19lcnJbMV0gPC0gbWVhbihkYXRhX3ByZXYkY29zX2VycltbMV1dIHw+IHVubGlzdCgpKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2VyclsxXSA8LSBtZWFuKGRhdGFfcHJldiRzaW5fZXJyW1sxXV18PiB1bmxpc3QoKSkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGV4cF9lcnJbMV0gPC0gbWVhbihkYXRhX3ByZXYkZXhwX2VycltbMV1dfD4gdW5saXN0KCkpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRhbGxfZXJyWzFdIDwtIG1lYW4oZGF0YV9wcmV2JGFsbF9lcnJbWzFdXXw+IHVubGlzdCgpKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KDQpkYXRhJGNvc19lcnJbMl0gPC0gbWVhbihkYXRhX3ByZXYkY29zX2VycltbMl1dfD4gdW5saXN0KCkpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRzaW5fZXJyWzJdIDwtIG1lYW4oZGF0YV9wcmV2JHNpbl9lcnJbWzJdXXw+IHVubGlzdCgpKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkZXhwX2VyclsyXSA8LSBtZWFuKGRhdGFfcHJldiRleHBfZXJyW1syXV18PiB1bmxpc3QoKSkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGFsbF9lcnJbMl0gPC0gbWVhbihkYXRhX3ByZXYkYWxsX2VycltbMl1dfD4gdW5saXN0KCkpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KDQoNCmRhdGEkY29zX2VyclszXSA8LSBtZWFuKGRhdGFfcHJldiRjb3NfZXJyW1szXV18PiB1bmxpc3QoKSkgfD4gDQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRzaW5fZXJyWzNdIDwtIG1lYW4oZGF0YV9wcmV2JHNpbl9lcnJbWzNdXXw+IHVubGlzdCgpKSB8PiANCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGV4cF9lcnJbM10gPC0gbWVhbihkYXRhX3ByZXYkZXhwX2VycltbM11dfD4gdW5saXN0KCkpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRhbGxfZXJyWzNdIDwtIG1lYW4oZGF0YV9wcmV2JGFsbF9lcnJbWzNdXXw+IHVubGlzdCgpKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KDQpkYXRhJGNvc19lcnJbNF0gPC0gbWVhbihkYXRhX3ByZXYkY29zX2VycltbNF1dfD4gdW5saXN0KCkpIHw+IA0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2Vycls0XSA8LSBtZWFuKGRhdGFfcHJldiRzaW5fZXJyW1s0XV18PiB1bmxpc3QoKSkgfD4gDQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRleHBfZXJyWzRdIDwtIG1lYW4oZGF0YV9wcmV2JGV4cF9lcnJbWzRdXXw+IHVubGlzdCgpKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkYWxsX2Vycls0XSA8LSBtZWFuKGRhdGFfcHJldiRhbGxfZXJyW1s0XV18PiB1bmxpc3QoKSkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQoNCmRhdGEkY29zX2Vycls1XSA8LSBtZWFuKGRhdGFfcHJldiRjb3NfZXJyW1s1XV18PiB1bmxpc3QoKSkgfD4gDQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRzaW5fZXJyWzVdIDwtIG1lYW4oZGF0YV9wcmV2JHNpbl9lcnJbWzVdXXw+IHVubGlzdCgpKSB8PiANCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGV4cF9lcnJbNV0gPC0gbWVhbihkYXRhX3ByZXYkZXhwX2VycltbNV1dfD4gdW5saXN0KCkpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRhbGxfZXJyWzVdIDwtIG1lYW4oZGF0YV9wcmV2JGFsbF9lcnJbWzVdXXw+IHVubGlzdCgpKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KZGF0YSRjb3NfZXJyWzZdIDwtIG1lYW4oZGF0YV9wcmV2JGNvc19lcnJbWzZdXXw+IHVubGlzdCgpKSB8PiANCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJHNpbl9lcnJbNl0gPC0gbWVhbihkYXRhX3ByZXYkc2luX2VycltbNl1dfD4gdW5saXN0KCkpIHw+IA0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkZXhwX2Vycls2XSA8LSBtZWFuKGRhdGFfcHJldiRleHBfZXJyW1s2XV18PiB1bmxpc3QoKSkgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJGFsbF9lcnJbNl0gPC0gbWVhbihkYXRhX3ByZXYkYWxsX2VycltbNl1dfD4gdW5saXN0KCkpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KDQoNCmBgYA0KDQpgYGB7cn0NCmZvciAoaSBpbiAxOjYpew0KICBmb3IgKGogaW4gKGkpOjYpew0KICAgIHggPC0gZGF0YV9wcmV2JGNvc19lcnJbW2ldXSB8PiB1bmxpc3QoKQ0KICAgIHkgPC0gZGF0YV9wcmV2JGNvc19lcnJbW2pdXSB8PiB1bmxpc3QoKQ0KICAgIHRfdGVzdF9yZXN1bHQgPC0gdC50ZXN0KHgsIHksIHBhaXJlZCA9IFRSVUUpDQogICAgaWYgKCFpcy5uYSh0X3Rlc3RfcmVzdWx0JHAudmFsdWUpICYgdF90ZXN0X3Jlc3VsdCRwLnZhbHVlID4gMC4wNSl7DQogICAgICBwcmludChwYXN0ZSgiY29zLCAiLCBkYXRhJNCc0LXRgtC+0LRbaV0sICIgIiwNCiAgICAgICAgICAgICAgICAgIGRhdGEk0JzQtdGC0L7QtFtqXSwgIiwgcC12YWwgPSAiLCB0X3Rlc3RfcmVzdWx0JHAudmFsdWUpKQ0KICAgICAgfQ0KICB9DQp9DQoNCmZvciAoaSBpbiAxOjYpew0KICBmb3IgKGogaW4gKGkpOjYpew0KICAgIHggPC0gZGF0YV9wcmV2JHNpbl9lcnJbW2ldXSB8PiB1bmxpc3QoKQ0KICAgIHkgPC0gZGF0YV9wcmV2JHNpbl9lcnJbW2pdXSB8PiB1bmxpc3QoKQ0KICAgIHRfdGVzdF9yZXN1bHQgPC0gdC50ZXN0KHgsIHksIHBhaXJlZCA9IFRSVUUpDQogICAgaWYgKCFpcy5uYSh0X3Rlc3RfcmVzdWx0JHAudmFsdWUpICYgdF90ZXN0X3Jlc3VsdCRwLnZhbHVlID4gMC4wNSl7DQogICAgICBwcmludChwYXN0ZSgic2luLCAiLCBkYXRhJNCc0LXRgtC+0LRbaV0sICIgIiwgZGF0YSTQnNC10YLQvtC0W2pdLCAiLCBwLXZhbCA9ICIsIHRfdGVzdF9yZXN1bHQkcC52YWx1ZSkpDQogICAgICB9DQogIH0NCn0NCg0KZm9yIChpIGluIDE6Nil7DQogIGZvciAoaiBpbiAoaSk6Nil7DQogICAgeCA8LSBkYXRhX3ByZXYkZXhwX2VycltbaV1dIHw+IHVubGlzdCgpDQogICAgeSA8LSBkYXRhX3ByZXYkZXhwX2Vycltbal1dIHw+IHVubGlzdCgpDQogICAgdF90ZXN0X3Jlc3VsdCA8LSB0LnRlc3QoeCwgeSwgcGFpcmVkID0gVFJVRSkNCiAgICBpZiAoIWlzLm5hKHRfdGVzdF9yZXN1bHQkcC52YWx1ZSkgJiB0X3Rlc3RfcmVzdWx0JHAudmFsdWUgPiAwLjA1KXsNCiAgICAgIHByaW50KHBhc3RlKCJleHAsICIsIGRhdGEk0JzQtdGC0L7QtFtpXSwgIiAiLCBkYXRhJNCc0LXRgtC+0LRbal0sICIsIHAtdmFsID0gIiwgdF90ZXN0X3Jlc3VsdCRwLnZhbHVlKSl9DQogIH0NCn0NCg0KZm9yIChpIGluIDE6Nil7DQogIGZvciAoaiBpbiAoaSk6Nil7DQogICAgeCA8LSBkYXRhX3ByZXYkYWxsX2VycltbaV1dIHw+IHVubGlzdCgpDQogICAgeSA8LSBkYXRhX3ByZXYkYWxsX2Vycltbal1dIHw+IHVubGlzdCgpDQogICAgdF90ZXN0X3Jlc3VsdCA8LSB0LnRlc3QoeCwgeSwgcGFpcmVkID0gVFJVRSkNCiAgICBpZiAoIWlzLm5hKHRfdGVzdF9yZXN1bHQkcC52YWx1ZSkgJiB0X3Rlc3RfcmVzdWx0JHAudmFsdWUgPiAwLjA1KXsNCiAgICAgIHByaW50KHBhc3RlKCJhbGxfZXJyLCAiLCBkYXRhJNCc0LXRgtC+0LRbaV0sICIgIiwgZGF0YSTQnNC10YLQvtC0W2pdLCAiLCBwLXZhbCA9ICIsIHRfdGVzdF9yZXN1bHQkcC52YWx1ZSkpDQogICAgICB9DQogIH0NCn0NCg0KDQp0YWJsZV9sYXRleCA8LSB4dGFibGUoZGF0YSwgY2FwdGlvbiA9ICJFeGFtcGxlIFRhYmxlIikNCg0KIyDQqNCw0LMgNDog0JLRi9Cy0L7QtCDRgtCw0LHQu9C40YbRiyDQsiBMYVRlWCDRhNCw0LnQuw0KcHJpbnQodGFibGVfbGF0ZXgsIGluY2x1ZGUucm93bmFtZXMgPSBGQUxTRSkNCmBgYA0KDQojIyMjINCf0YDQuNC80LXRgCwg0LrQvtGC0L7RgNGL0Lkg0L3QtSDQv9C+0LTRhdC+0LTQuNGCINC90Lgg0Log0LrQsNC60L7QvNGDINC80LXRgtC+0LTRgw0KDQpgYGB7cn0NCm4gPC0gOTYqMiArIDcNCkwgPC0gODkNCnggPC0gMDoobi0xKQ0KeTEgPC0gc2luKDIqcGkvMTMgKiB4KQ0KeTIgPC0gY29zKDIqcGkvOCAqIHgpDQp5MyA8LSAteCp4LzEwMDANCnk0IDwtIGV4cCh4LzU1KQ0KeSA8LSB5MSArIHkyICsgeTMgKyB5NCANCnBsb3QoeCwgeSkNClggPC0gaGFua2VsKHksIEwgPSBMKQ0KZXBzIDwtIDEvKG4rMSkNCg0Kc19zc2EgPC0gc3NhKHksIEwpDQojIHJfc3NhIDwtIHJlY29uc3RydWN0KHNfc3NhLCBncm91cHM9bGlzdCgNCiMgICBzZXNvbmFsX3NpbiA9IGMoMSwgMiksDQojICAgc2Vzb25hbF9jb3MgPSBjKDMsIDQpDQojICkpDQojIHBsb3QoeCwgcl9zc2Ekc2Vzb25hbF9zaW4pDQojIHBsb3QoeCwgcl9zc2Ekc2Vzb25hbF9jb3MpDQojIHBsb3Qod2NvcihzX3NzYSwgZ3JvdXBzID0gMToxMCksIHNjYWxlcyA9IGxpc3QoYXQgPSBjKDEwLCAyMCwgMzApKSkNCmVfc3NhIDwtIGVvc3NhX25ldyhzX3NzYSwgbmVzdGVkLmdyb3VwcyA9IGxpc3QoMToxMCksIGNsdXN0X3R5cGUgPSAiZGlzdGFuY2UiKQ0KZ19zZXNvbmFsX2UgPC0gZ3JvdXBpbmcuYXV0byhlX3NzYSwgYmFzZSA9ICJlaWdlbiIsDQogICAgICAgICAgICAgICAgICAgICAgIGZyZXEuYmlucyA9IGxpc3QoDQogICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9zaW4gPSBjKDEvMTItZXBzLCAxLzEyK2VwcyksDQogICAgICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvOC1lcHMsIDEvOCtlcHMpDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKSwNCiAgICAgICAgICAgICAgICAgICAgICAgdGhyZXNob2xkID0gMC41KQ0Kcl9zc2FfZSA8LSByZWNvbnN0cnVjdChlX3NzYSwgZ3JvdXBzPWdfc2Vzb25hbF9lKQ0KIyBwbG90KHgsIHJfc3NhX2Ukc2Vzb25hbF9zaW4pDQojIHBsb3QoeCwgcl9zc2FfZSRzZXNvbmFsX2NvcykNCg0KDQoNCnJfZmZ0IDwtIHJlY29uc3RydWN0X2ZmdCh4LCB5KQ0Kcl9mZnRfZ3JvdXBlZCA8LSBncm91cGluZ19jaXNzYShyX2ZmdCwNCiAgICAgICAgICAgICAgICAgICAgZ3JvdXBzID0gbGlzdCgNCiAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX3NpbiA9IGMoMS8xMi1lcHMsIDEvMTIrZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX2NvcyA9IGMoMS84LWVwcywgMS84K2VwcykNCiAgICAgICAgICAgICAgICAgICAgKQ0KICAgICAgICAgICAgICAgICAgICApJHRfc2VyaWVzDQoNCiMgcl9mZnRfZ3JvdXBlZCRzZXNvbmFsX3NpbiB8PiBsZW5ndGgoKQ0KDQojIHBsb3QoeCwgcl9mZnRfZ3JvdXBlZCRzZXNvbmFsX3NpbikNCiMgcGxvdCh4LCByX2ZmdF9ncm91cGVkJHNlc29uYWxfY29zKQ0KIyBwbG90KHgsIHJfZmZ0X2dyb3VwZWQkcmVzaWR1YWxzKQ0KDQoNCnJfY2lzc2EgPC0gY2lyY3VsYW50X1NTQSh5LCBMKQ0Kcl9jaXNzYV9ncm91cGVkIDwtIGdyb3VwaW5nX2Npc3NhKHJfY2lzc2EsDQogICAgICAgICAgICAgICAgICAgIGdyb3VwcyA9IGxpc3QoDQogICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9zaW4gPSBjKDEvMTItZXBzLCAxLzEyK2VwcyksDQogICAgICAgICAgICAgICAgICAgICAgc2Vzb25hbF9jb3MgPSBjKDEvOC1lcHMsIDEvOCtlcHMpDQogICAgICAgICAgICAgICAgICAgICkNCiAgICAgICAgICAgICAgICAgICAgKSR0X3Nlcmllcw0KDQoNCnJfY2lzc2FfZXh0IDwtIGNpcmN1bGFudF9TU0EoeSwgTCwgZXh0ZW5kX2ZsYWcgPSBUUlVFKQ0Kcl9jaXNzYV9ncm91cGVkX2V4dCA8LSBncm91cGluZ19jaXNzYShyX2Npc3NhX2V4dCwNCiAgICAgICAgICAgICAgICAgICAgZ3JvdXBzID0gbGlzdCgNCiAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX3NpbiA9IGMoMS8xMi1lcHMsIDEvMTIrZXBzKSwNCiAgICAgICAgICAgICAgICAgICAgICBzZXNvbmFsX2NvcyA9IGMoMS84LWVwcywgMS84K2VwcykNCiAgICAgICAgICAgICAgICAgICAgKQ0KICAgICAgICAgICAgICAgICAgICApJHRfc2VyaWVzDQoNCiMgcGxvdCh4LCByX2Npc3NhX2dyb3VwZWQkc2Vzb25hbF9zaW4pDQojIHBsb3QoeCwgcl9jaXNzYV9ncm91cGVkJHNlc29uYWxfY29zKQ0KIyBwbG90KHgsIHJfY2lzc2FfZ3JvdXBlZCRyZXNpZHVhbHMpDQoNCmxpYnJhcnkoeHRhYmxlKQ0KDQojINCo0LDQsyAyOiDQodC+0LfQtNCw0L3QuNC1INC/0YDQuNC80LXRgNCwINC00LDQvdC90YvRhQ0KZGF0YSA8LSBkYXRhLmZyYW1lKA0KICDQnNC10YLQvtC0ID0gYygiU1NBIEVPU1NBIiwiRm91cmllciIsICJDaVNTQSIsICJDaVNTQSBleHRlbmRlZCIpLA0KICBzaW5fZXJyID0gYyAoMjAsIDIwLCAxLCAxKSwNCiAgY29zX2VyciA9IGMoMSwgMSwgMSwgMSkNCikNCg0KZGF0YSRjb3NfZXJyWzFdIDwtIG1zZSh5MSwgcl9zc2FfZSRzZXNvbmFsX3NpbikgfD4NCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQpkYXRhJHNpbl9lcnJbMV0gPC0gbXNlKHkyLCByX3NzYV9lJHNlc29uYWxfY29zKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCg0KDQpkYXRhJGNvc19lcnJbMl0gPC0gbXNlKHkxLCByX2ZmdF9ncm91cGVkJHNlc29uYWxfc2luKSB8Pg0KICBmb3JtYXRDKGZvcm1hdCA9ICJlIiwgZGlnaXRzID0gMSkNCmRhdGEkc2luX2VyclsyXSA8LSBtc2UoeTIsIHJfZmZ0X2dyb3VwZWQkc2Vzb25hbF9jb3MpIHw+DQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KDQoNCmRhdGEkY29zX2VyclszXSA8LSBtc2UoeTEsIHJfY2lzc2FfZ3JvdXBlZCRzZXNvbmFsX3NpbikgfD4gDQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRzaW5fZXJyWzNdIDwtIG1zZSh5Miwgcl9jaXNzYV9ncm91cGVkJHNlc29uYWxfY29zKSB8PiANCiAgZm9ybWF0Qyhmb3JtYXQgPSAiZSIsIGRpZ2l0cyA9IDEpDQoNCg0KZGF0YSRjb3NfZXJyWzRdIDwtIG1zZSh5MSwgcl9jaXNzYV9ncm91cGVkX2V4dCRzZXNvbmFsX3NpbikgfD4gDQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KZGF0YSRzaW5fZXJyWzRdIDwtIG1zZSh5Miwgcl9jaXNzYV9ncm91cGVkX2V4dCRzZXNvbmFsX2NvcykgfD4gDQogIGZvcm1hdEMoZm9ybWF0ID0gImUiLCBkaWdpdHMgPSAxKQ0KDQoNCg0KdGFibGVfbGF0ZXggPC0geHRhYmxlKGRhdGEsIGNhcHRpb24gPSAiRXhhbXBsZSBUYWJsZSIpDQoNCiMg0KjQsNCzIDQ6INCS0YvQstC+0LQg0YLQsNCx0LvQuNGG0Ysg0LIgTGFUZVgg0YTQsNC50LsNCnByaW50KHRhYmxlX2xhdGV4LCBpbmNsdWRlLnJvd25hbWVzID0gRkFMU0UpDQpgYGANCg==